Zoom in/Zoom out picture

[youu917]

Can anyone tell me how to make the picture can zoom in/zoom out,
contract/expand picture using excel vba user form? is it possible to
make it?

 

[Jim Cone]

Good advice on posting to news groups here...
http://www.cpearson.com/excel/newposte.htm
'--
On an Excel UserForm with a Command Button and an Image Control,
clicking the image enlarges it each time it is clicked,
while clicking the command button returns the image to its original size...
'-
Private Sub CommandButton1_Click()
Me.Image1.Height = 63.75
Me.Image1.Width = 82.5
End Sub
'--
Private Sub Image1_Click()
Me.Image1.Height = Me.Image1.Height + 25
Me.Image1.Width = Me.Image1.Width + 25
End Sub
'--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware
(Excel Add-ins / Excel Programming)




<[email protected]>
wrote in message
Can anyone tell me how to make the picture can zoom in/zoom out,
contract/expand picture using excel vba user form? is it possible to
make it?