Resim Sabitlemek

[bahaer]

Merhaba,
ekli dosyada görüleceği gibi, listenin yanındaki resimin sabit kalmasını istiyorum.
Yani kaydırma çubuğu ile aşağı yukarı yapsamda resim kaybolmasın. kaydırma çubuğu ile hareket etsin .

desteğinizi rica ediyorum.
teşekkürler.

 

[uzmanamele]

merhaba

bu kodları sayfanın kod bölümüne yazın.
sayfada herhangi bir hücreyi tıkladığınızda resim o satıra gelecektir.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Shapes("Picture 1").Top = Target.Top
End Sub

 

[bahaer]

çok teşekkür ederim.