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

移动Excel图表，使其保持在视图中

1 个答案: