Ekteki resimleri otomatik gösterme

[gurbuzs]

Arkadaşlar merhaba
ekte film arşiv dosyamı forumumuzdan bulduğum bir resim gösterme kısmını ekledim.
sormak istediğim şey;
1- sağda resim açılıyor çok güzel ama örneğin aşağı doğru mesela 500.satıra kaydırdığımda resim yukarıda kalıyor resmin hep aynı yerde kalmasını nasıl sağlarım satır kaysa da resim de kaysın mesela..
2- combo box değil de soldaki listede hücrede gezdikçe resmin değişmesini nasıl sağlarım..
teşekkürler..

 

[Ömer]

Merhaba,

Liste sayfasının kod bölümüne kopyalayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
ActiveSheet.Shapes("Image2").Top = ActiveCell.Offset(1, 2).Top
Son:
End Sub

2. sorunuzu anlayamadım.

.

 

[gurbuzs]

Sayın Ömer
ellerinize sağlık, resim aktif hücreyi takip ediyor sabit kalmıyor üstte ama hiç yoktan iyidir
2.sorum şuydu, mouse aktif hücredeyken o hücredeki filmin afişi gelebilir mi.combo box seçimi olmadan yani..

 

[BG]

Sayın gurbuzs

Sayın Ömer
ellerinize sağlık, resim aktif hücreyi takip ediyor sabit kalmıyor üstte ama hiç yoktan iyidir
2.sorum şuydu, mouse aktif hücredeyken o hücredeki filmin afişi gelebilir mi.combo box seçimi olmadan yani..

2. sorunuz için aşağıdaki kodu deneyiniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim photo As String
Application.ScreenUpdating = False
'Range("I2").Value = ComboBox1.Value
ActiveSheet.Calculate
On Error GoTo Fin
photo = ActiveCell.Value
Label1.Visible = True
Image2.Picture = LoadPicture("f:\Film Listesi\Foto" & "\" & photo & ".jpg")
Label1.Visible = False
Exit Sub
Fin:
Label1.Visible = True
Label1.Caption = "Seçtiğiniz Filme Ait Fotoğraf Bulunamadı "
Image2.Picture = LoadPicture()
Err.Clear
End Sub

 

[gurbuzs]

teşekkürler olay budur
ellerinize sağlık