Picture in a worksheet

[nadiminti]

I have loaded several pictures in a worksheet "Pictures"

The pictures are inserted in the worksheet by simple copy paste.

On a userform, I am trying to load the picture by using this code

<code>
Private Sub UserForm_Initialize()
Image2.Picture = Worksheets("Pictures").OLEObjects("Picture 1").Object.Picture
End Sub
</code>

It is not loading and giving error.

Please help on how could I do it.

 

[tygrrboi]

Sheets("Pictures").Shapes("Picture 1") ?

 

[nadiminti]

No it did not work. Giving me type mismatch.

 

[tygrrboi]

I think you need to save that picture to a temporary location then call it to the userform with a path.


Place Picture Excel Worksheet Range into User Form with VBA | Excel VBA Training Videos

 

[nadiminti]

I'm looking for VBA code which can take the picture from one of the existing sheets. If I have to load from a location, then I need to copy the image directory along with the .xlsm file.

 

[tygrrboi]

Or save it to the same directory as the file itself using activeworkbook.path

 

[Jaafar Tribak]

You may want to take a look here:
http://www.mrexcel.com/forum/excel-...ange-jpg-without-creating-deleting-chart.html

 

[nadiminti]

Thank you Jaafar, but you are ultimately loading it from the HD. All my images are already on the worksheet.

 

[Jaafar Tribak]

No.. You just copy the image on the worksheet to the clipboard and then extract the picture from the clipboard and load it into the userform control ... No need to save the picture to disk

 

[nadiminti]

Hmm.. could you provide me the code please... in your link it is some thing related to your case. For my problem, what would be the code?