Embedded Pictures into Image control on a Userform

[al_b_cnu]

Hi,

I am writing an app, and would like to include some online help. The help needs to have screenshots, so have embedded these screenshots (named 'Pic1' , 'Pic2', ... Picn') into a hidden worksheet, and would like to selectively display them in an image control in a userform.

I also have a column (say column A) which has the names of the embedded pictures as text.

Searching the board seems to suggest using 'LoadPicture', but this will only load the images from an external file.

Any suggestions please?

Many thanks

Alan

 

[Andrew Poulsom]

Here is an example that uses a range as a picture. Perhaps you can adapt it:

http://www.mrexcel.com/board2/viewtopic.php?t=86520

 

[al_b_cnu]

Thanks Andrew, I'll have a play & let you know.

Alan

 

[al_b_cnu]

Thanks Andrew, I'll have a play & let you know.

Alan

 

[al_b_cnu]

Cracked it!

Inserted pictures on s/sheet via Image control, then used this example code (which just displays the 1st image):

Private Sub UserForm_Activate()
Dim imgList As ImageList

Set imgList = New ImageList

imgList.ListImages.Clear
imgList.ListImages.Add Key:="img1", Picture:=Sheet1.OLEObjects("Pic1").Object.Picture
imgList.ListImages.Add Key:="img2", Picture:=Sheet1.OLEObjects("Pic2").Object.Picture

Set Image1.Picture = imgList.ListImages.Item("img1").Picture
End Sub