Solved: Insert Image from Userform Commandbutton.

[gabethegrape]

In my userform, I have an image on my commandbutton. When the user clicks the commandbutton I want that image to be inserted into the worksheet. I want to create this as part of an Addin. Is this possible to do if the user does not have the image source file on their computer?

Here is the code I have so far (which does not work):

Private Sub cmdInsert_Click()
Range("D1").Value = cmdInsert.Picture
End Sub

[Bob Phillips]

Store the image in the workbook that the form lives in and copy it from there.

[gabethegrape]

Store the image in the workbook that the form lives in and copy it from there.

How do I reference an object in the Addin workbook? I tried this and I could only access the open workbook objects (not the addin).

[Bob Phillips]

Shouldn't be a problem

[vba]

ThisWorkbook.Worksheets("images").Shapes("myPic").Copy
ActiveWorkbook.Worksheets("Sheet1").Paste
[/vba]

[Bob Phillips]

Shouldn't be a problem

[vba]

ThisWorkbook.Worksheets("images").Shapes("myPic").Copy
ActiveWorkbook.Worksheets("Sheet1").Paste
[/vba]

[gabethegrape]

Thanks xld,
This just opened up a lot of doors for me!
Gabe

[Bob Phillips]

That's great. A simple answer that creates possibilities, sharing at its best, what more could we ask for