Sayfa Hareket Ettiğinde Hareket Eden Grafik

[skaan]

Merhaba;

Sayfamda bir grafik oluşturdum. Ancak sayfa yukarı aşağı ilerledikçe grafik kayboluyor. Sayfa ılerledıkce durumuna gore ya asagıde yada tukarıda kalıyor.
Acaba sayfa hareket edınce sayfa ıle hareket edebılırmı. Hep gozonunde kalması gerekiyor grafıgın. İstediğim alanda..Bu konuda yardımcı olabılirmisiniz lütfen.
Ornek Dosyam ektedir.

Tşk
Saygılarımla,
Skaan

 

[Merhum İdris SERDAR]

.

Böyle bir şey mi?

.

 

[skaan]

Merhaba idris bey;
Bölmeyi dondurduğum alanda olmayacak.. Aktıf olan sayfada hareket ettıgımde sayfayı yukarı aşağı hareket ettirince grafık ıstedıgım alanda kalmalı. Sayfa hareket ederken grafıkte hareket etmelıkı kaybolmasın.Mumkunse yardımcı olursanız çok sevınırım.

Tşk
Saygılarımla
SKaan

 

[Korhan Ayhan]

Sayfanızın kod bölümüne uygulayıp deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Satir = ActiveWindow.ActivePane.ScrollRow
    ActiveWindow.SmallScroll Down:=Target.Row - Satir
    With ActiveSheet.Shapes("Grafik 1")
        .Left = Cells(Target.Row, "G").Left
        .Top = Cells(Target.Row, "G").Top
    End With
End Sub

 

[skaan]

Merhaba;
Yardımlarınız için çok teşekkür ederim. sağolun varolun..

Tşk
Saygılarımla
Skaan