Kursiyerlerin resimlerini getiremiyorum

[Mdemir63]

Selamlar,

Arkadaşlar Herkesin bayramını kulayarak başlamak istiyorum. Ekteki dosyamda Resim çerçevesinin olduğu hücreye ComboBox veya List Box tan seçtiğim isme göre resimlerini nasıl getirebilirim?

Saygılar sunarım



Not: Forumdaki dosyalardan uyarlayamadım.

 

[Mdemir63]

Aşağıdaki kodlarla yapmaya çalıştım beceremedim

Option Explicit

Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("f5")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
Exit For
End If
Next oPic
End With
End Sub

 

[Levent Menteşoğlu]

G5 hücresine bir image nesnesi yerleştirin ve resimleri bu nesneye resimlerin bulunduğu klasörden seçilen isme göre çağırın.

 

[Mdemir63]

Hocam Merhabalar,

Dediklerinizi yapmaya çalıştım ama başarılı olamadım.Nasıl bir yol izlemem konusunda biraz daha aydınlatıcı bilgi verebilirmisiniz?

Saygılar sunarım

 

[Mdemir63]

Levent Hocam
Bir tane örnek resim ekleyip o resmi çağırma işlemini yapabilirseniz, diğer resim ekleme ve çağırma işlemini sanırım yapabilirim.

Saygılar

 

[Merhum İdris SERDAR]

Aşağıdaki kodlarla yapmaya çalıştım beceremedim

Option Explicit

Private Sub Worksheet_Calculate()
Dim oPic As Picture
Me.Pictures.Visible = False
With Range("f5")
For Each oPic In Me.Pictures
If oPic.Name = .Text Then
oPic.Visible = True
oPic.Top = .Top
oPic.Left = .Left
Exit For
End If
Next oPic
End With
End Sub

Bu kodlarla yapıldığında belirli bir resimden sonra dosya bozuluyor. Nedenini ve kaç resimden sonra diye sorarsanız. Bilmiyorum.

1.Bu dosyanızı yeni bir dosyada yeniden yapmaya çalışın.

2. Forumda verdiğim örneklerden diğer ikisini deneyin.

..

 

[Mdemir63]

Yurttaş hocam merhaba,

Vallahi moralim o kadar bozuldu ki, Aynı kodlar başka dosyada çalışıyor.

Kendi dosyamda çalıştıramıyorum. Anlayamadım nerede hata yapıyorum. Başka bir çözümünüz varsa cevabınızı bekliyorum.

Saygılar sunarım

 

[Merhum İdris SERDAR]

Yurttaş hocam merhaba,

Vallahi moralim o kadar bozuldu ki, Aynı kodlar başka dosyada çalışıyor.

Kendi dosyamda çalıştıramıyorum. Anlayamadım nerede hata yapıyorum. Başka bir çözümünüz varsa cevabınızı bekliyorum.

Saygılar sunarım

Bu dosyanızda anlayamadığım bir bozukluk var. Bu nedenle yeni bir dosya yapın. Derim.

.

 

[Mdemir63]

Hocam sağolun,
Önerinizi yapacağım

Saygılar