点击图表时，完全放大，然后按钮点击退出？

Question

有没有办法通过单击形状来修复缩放。我用excel很体面，但是我没有代码可以显示。

请帮帮忙，谢谢:)

Answer 1

你可以使用这样的缩放和移动：

Sub zoom_shift() 

Dim SHP As Shape 
Set SHP = ActiveSheet.Shapes(1) 
Dim siLeft As Single 
Dim siTop As Single 

siLeft = SHP.Left 
siTop = SHP.Top 

    ActiveWindow.Zoom = 200 

Application.Goto SHP.TopLeftCell, True 

End Sub 

但是，你可以根据你的需求需要一些调整。