點擊圖表時，完全放大，然後按鈕點擊退出？

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 

但是，你可以根據你的需求需要一些調整。