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

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

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