Sayfadaki resmlerin userform üzerinde görünmesi

[ynmcan]

Hayırlı akşamlar arkadaşlar;

"UserForm1.Image1.Picture = Sheets(""Resim"").[COLOR="Red"]AAA[/COLOR].Picture

kodu ile userform1 üzerindeki buton ile userform üzerindeki image1 nesnesine ""AAA"" adlı resmi getiriyorum. Ancak combobox' ta ki seçime göre resim getirmek için aşağıdaki koda benzer kodlar kulandığım hallde

UserForm1.Image1.Picture = Sheets(""Resim"").[COLOR="Red"]UserForm1.ComboBox1.Value[/COLOR].Picture

bir sonuca varamadım. Yardımcı olursanız sevinirim.
Örnek dosyam ekte.

 

[Ferhat Pazarçevirdi]

Merhabalar,

CommandButton'u şu şekilde programlayınız.

Private Sub CommandButton1_Click()
    If ComboBox1.ListIndex >= 0 Then
        Image1.Picture = Sheets("Resim").OLEObjects(ComboBox1.Text). _
                                         Object.Picture
    End If
End Sub

.

 

[ynmcan]

Syn. Ferhat Pazarçevirdi ;
Kod için teşekkür ederim, hayırlı akşamlar

 

[wiseowl123]

YnmCan Merhaba,

İlgili dokümanda resimlere müdahale edilemiyor. Resimler nasıl oluşturuldu ve nasıl çoğaltabilirim. Yardımcı olur musunuz.

İyi çalışmalar.

Syn. Ferhat Pazarçevirdi ;
Kod için teşekkür ederim, hayırlı akşamlar

 

[wiseowl123]

Tekrar Merhaba,

Hallettim. Örneğiniz çok işime yaradı teşekkürler.