单击图形时，完全放大，然后单击按钮退出？

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

但是，您可以根据需要进行一些调整。