点击按钮，图表和按钮位置自动移动到屏幕垂直中部

梁家大侠

　　各位老师好，请教一个问题，有一堆图表，竖直排列，想要实现的功能：　　如果点按扭1，屏幕滚动到图表1的位置（或者说图表1基本在屏幕中间），相应的按扭组（1-6）也在图表的右侧；
　　相应地，如点击按钮N，显示图表N，且按扭组（1-6）也在图表N的右侧，方便点击。这样可以实现吗？

梁家大侠

移动到某图表我可以用　ActiveWindow.ScrollRow = ???　来实现，但是按钮位置改变我就不会了，请老师指导。

lele6809

下面的代码是按钮1 和6的，其余的可以照此编辑：
Sub 按钮1_Click()
    ActiveSheet.ChartObjects("图表 1").Select
    a = ActiveSheet.ChartObjects("图表 1").TopLeftCell.Address
    Application.Goto Reference:=Range(a), scroll:=True
End Sub

Sub 按钮6_Click()
    ActiveSheet.ChartObjects("图表 6").Select
    a = ActiveSheet.ChartObjects("图表 6").TopLeftCell.Address
    Application.Goto Reference:=Range(a), scroll:=True
End Sub

lele6809

代码审核中，可以去掉第一句    ActiveSheet.ChartObjects("图表 1").Select

lele6809

先看图片吧                             

梁家大侠

lele6809 发表于 2019-6-13 11:05
下面的代码是按钮1 和6的，其余的可以照此编辑：
Sub 按钮1_Click()
    ActiveSheet.ChartObjects("图表 ...

我自己解决了，不过依然要谢谢你！