excel - 移动 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