VBA to Zoom In and Zoom Out of a picture or object

Hi Team,
I would like to zoom in (5 times) to any selected picture and then zoom out to its normal size. I am able to write a code to zoom with but unable to zoom out to its actual size before zooming in. The code I am using is as below.

sub ZoomIn()

Selection.ShapeRange.ScaleWidth 4.2983850003, msoFalse, msoScaleFromTopLeft
Selection.ShapeRange.ZOrder msoBringToFront
End Sub

Sub ZoomOutUndo()

With Application
.EnableEvents = False
.undo
.EnableEvents = True
End With
End Sub

Thanks heaps in advance for your help in this regard.
Jay K