Consult everybody a great god I want to do click on the image to zoom in effect, there are successful the pictures down from the upper left to right to zoom in, the little brother I am want to make pictures from the upper to the lower left to zoom in, could you tell me how to fix my VBA code change? Could you please do me a favor to fix, thanks!

 
Option Explicit 
Dim fd As Boolean 
Sub images 2 _click () 
Fd=fd Xor True 
With ActiveSheet. Shapes (Application. The Caller). OLEFormat. Object 
If fd Then 
. Width=. Width + 500 
. The Height=. Height + 500 
The Else 
. Width=. Width - 500 
. The Height=. The Height - 500 
End the If 
End With 
End Sub 

CodePudding user response:

Use the left property to set the move to the left of the picture, or need to calculate