Copy User Form Image to Worksheet Automatically

How to copy User Form image to worksheet at a specific position automatically using VBA. This can help in creating ID cards for employees, students, etc,
Watch the video below:

Here’s the complete VBA code:
Private Sub CommandButton1_Click()
Dim shapeImage As OLEObject

With Worksheets(“Sheet1″)
Set shapeImage = .OLEObjects.Add(ClassType:=”Forms.Image.1”, _
Left:=.Cells(2, “B”).Left, _
Top:=.Cells(2, “B”).Top, _
Width:=Me.Image1.Width, _
Height:=Me.Image1.Height)
End With

With shapeImage
.Object.PictureSizeMode = 3
.Object.Picture = Me.Image1.Picture
End With

End Sub

Further reading:
PictureSizeMode property

Published by

Dinesh Kumar Takyar

Welcome to exceltrainingvideos.com! My aim is to help you learn MS Excel including VBA. I always felt that a good way to learn something was to find solutions to problems in that domain. That is why I share these Excel videos with you. Mostly these are questions asked during my corporate training sessions. I've been training individuals and companies in computers since 1991. I did my B. Sc. (Vordiplom), M. Sc. (Diplom) and Ph.D. (Dr. rer. nat.) from Hamburg, Germany. The best thing about solving some of my visitor's questions is that I also gain new insights. For more Excel VBA solutions you may like to visit my YouTube channel: http://youtube.com/familycomputerclub For a structured Excel VBA training course online you can visit: https://www.youtube.com/excelvbaonline

Leave a Reply

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.