Resim sabitleme

[recepkull]

Arkadaşlar sayfaya eklediğim resmin kaydırma çubuğu ile birlikte hareket etmesini istiyorum. Yani kaydırma çubuğu hareket etse bile resim eklediğim yerde sabit duracak aşağıya yukarıya gitmeyecek bunu nasıl yapabilirim ?

 

[Seyit Tiken]

İstediğiniz böyle bir şey mi?

 

[recepkull]

Hayır ilgilendiğiniz için teşekkür ederim. Bölmeleri dondur yaparak yapmışsınız benim istediğim böyle değil maalesef.

 

[Necdet]

Merhaba,

Kaydırma çubuğu hareketleri makroda nasıl alınır bilmiyorum ama aşağı ok, yukarı ok, yani kısaca hücre seçildiğinde resmi ekrana dikey olarak ortalar.

Fikir olsun.
Kodlar ilgili sayfanın kod bölümünde olmalı, Resmin Adı : Resim. Siz kodları kendinize göre uyarlayınız.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim myPicture As Shape

    Set myPicture = ActiveSheet.Shapes("Resim")
   
    With ActiveWindow.VisibleRange
        myPicture.Top = .Top + .Height / 2 - myPicture.Height / 2
        myPicture.Left = .Left + .Width / 2 - myPicture.Width / 2
    End With
   
    myPicture.Visible = True

End Sub

 

[recepkull]

ilgilendiğiniz için teşekkür ederim hocam