Userform Image Control

[Zakkala]

Hi there,

I have a couple of logos on a worksheet. The users will, on occasion, make changes to the workbook via a userform interface. I would like to replicate the logos on the userform that show on the worksheet.

I have an image control on the userform, but can't work out how to load the picture to it as I only know how to do it when the picture is a separate file - can anyone advise how I do it using a names picture on a worksheet as the source?

Thanks folks.

 

[MickG]

Hi, There may be better ways to do this but this worked for me.
In order to place an image from your sheet to a Userform, you first have to save the image to a tempory file. I was not able to do this with a picture , but you can do it with a Chart Object.
Place an empty chart on the sheet, then position the image over the chart, this seems to lock the image in the chart, (Possibly other ways to do this) .
With your "Userform" and its "Image Control" in place, use this code as shown below, in a "Userform Initialize" Event.
NB:- Adjust sheet names to suit.

Private Sub UserForm_Initialize()
Dim Pic As Chart, Fname As String
  Sheets("sheet35").ChartObjects(1).Select
  Set Pic = Sheets("sheet35").ChartObjects(1).Chart
Fname = ThisWorkbook.Path & "\temp.gif"
Pic.Export Filename:=Fname, filtername:="GIF"

Image1.Picture = LoadPicture(Fname)
End Sub

Regards Mick

 

[Zakkala]

Thanks Mick - I'd just got to the point of playing with the Chart thing too!

However, I have just found this on the web - seems to work a treat, once I've re-sized the images in paint:

http://spreadsheetpage.com/index.php/tip/pasting_an_image_to_a_userform_control/

 

[MickG]

Hi, Thanks for the interesting link.
Regards Mick