移動excel圖表，使其保持在視圖中

Question

我想在Excel中移動圖形，以便始終可見。如果用戶點擊某個單元格，圖表必須移動，以便再次顯示該圖表。我知道如何移動圖表，但是如何獲得最頂層可見單元格的y（或頂部）值？

Answer 1

您可以使用它來得到一個參考範圍在屏幕上當前可見

Set rngVisible = ActiveWindow.ActivePane.VisibleRange 

這個小演示將保留位於可視屏幕作爲用戶的左上角有一個特定的形狀改變選擇（編碼在相關的圖表模塊中）

Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
    Dim shp As Shape 
    Dim rngVisible As Range 

    Set rngVisible = ActiveWindow.ActivePane.VisibleRange 
    Set shp = Me.Shapes("MyShape") 

    shp.Top = rngVisible.Top 
    shp.Left = rngVisible.Left 
End Sub