Şekli sabitlemek

[recepkull]

Eklediğim şeklin sayfada sabit kalmasını istiyorum. Yani sayfayı aşağı indirdiğimde şekil ekrandan hiç kaybolmayacak. Tıpkı bölmeleri dondur özelliği gibi. Sayfayı aşağıda indirsen yana da çeksen dondurulmuş bölme ekranda sabit kalıyor. Aynı şeyi eklediğim şekil için de yapabilir miyim? Excelde böyle bir özellik var mı acaba ?

 

[Ömer BARAN]

Merhaba.

Yanılmıyorsam, kaydırma çubuğuna değil de seçilen hücreye göre şekli konumlandırabilirsiniz.
Alt taraftan ilgili sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçip, açılacak VBA ekranında sağdaki boş alana aşağıdaki kod blokunu yapıştırın.
Kod'daki şekil adını, belgenizdeki şekilin adıyla değiştirmeyi unutmayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    With ActiveSheet.Shapes.Range(Array("Dikdörtgen 2"))
        .Left = ActiveCell.Offset(0, 1).Left + 4
        .Top = ActiveCell.Top + 4
    End With
End Sub

 

[recepkull]

İlgilendiğin için teşekkür ederim ustam.