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

ただし、必要に応じて調整が必要な場合があります。