- Katılım
- 27 Şubat 2008
- Mesajlar
- 307
- Excel Vers. ve Dili
- Office 2016
Özet grafik oluşturdum ama 120 satırdan oluşuyor. Grafiğim sayfada oynama yapınca (aşağı-yukarı) sayfanın dışında kalıyor. Butonlarda aşağıdaki şekilde kayan buton oluşturmuştuk. Bunu yada buna benzer bir şeyi grafik için uyarlayabilirmiyiz. Sayfada aşağı yukarı gidince grafikte sola dayalı olarak benimle birlikte kaysın. Yada tıklayınca sola yanaşık şekilde sayfa başında görünsün
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Sh = Sheets(ActiveSheet.Name)
Button = "1" ' sıra numarası yazılacak
Sh.Shapes(Button).OLEFormat.Object.Top = ActiveWindow.VisibleRange.Top
Sh.Shapes(Button).OLEFormat.Object.Left = ActiveWindow.VisibleRange.Left
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Set Sh = Sheets(ActiveSheet.Name)
Button = "1" ' sıra numarası yazılacak
Sh.Shapes(Button).OLEFormat.Object.Top = ActiveWindow.VisibleRange.Top
Sh.Shapes(Button).OLEFormat.Object.Left = ActiveWindow.VisibleRange.Left
End Sub