User Form (Inserting a Picture)

[leadx]

I'm looking to use a user form to insert a picture into excel.

The picture area would be 2" x 2", but a user would able to enter a smaller picture.

So... I'm wondering if this is even possible and how the heck you'd code something like this... my vba skills are still in the elementary stage.

Thanks in advance,

Corey

 

[Norie]

Corey

How exactly would the user be entering a picture?

 

[leadx]

Well I was hoping they be able to enter the picture through a user form... So they could use a browse button... or is it possible to create a macro that brings up the insert picture dialog box and then insert the picture into the allocated space?

 

[al_b_cnu]

Hi,

Try:

Dim vFileName As Variant

vFileName = Application.GetOpenFilename("Bitmap files (*.bmp), *.bmp,Gif files (*.gif),*.gif")
If vFileName = False Then Exit Sub

Image1.Picture = LoadPicture(Filename:=vFileName)

assuming your Image control is called 'Image1'

PS

Morning Norie,what's the storie? ;¬)

 

[leadx]

That's al_b_cnu

That worked awesome for brining up the dialog box.

I'm a little confused by one thing... What do you mean by:
"assuming your Image control is called 'Image1' "

I'm still learning vba and don't really understand this... How do I create an Image Control?

Many Thanks... really appreciate your help.

Corey

 

[al_b_cnu]

Hi corey,

To create an image control, just click on the 'Image' icon in the toolbox & drag & draw onto the userform, the default name will be 'Image1'.

If no Image icon is visible (looks like a picture of a mountain with the sun), in 'Additional controls', ensure that 'Microsof Forms Image' is selected.

You will probably want to set the PictureSizeMode to '3 - fmPictureSizeModeZoom'

 

[leadx]

Thanks again Alan,

Everything is working great... Thanks for the tip on using fmPictureSizeModeZoom' as well. Make any picture fit the Image box perfect.

I just have one last little challenge.... I know how to enter data from a from into a worksheet, but I'm a little lost when it comes to an image.

I've been trying to use:

ws.Cells(9, 2).Image1.Picture

I keep getting numbers inserted instead of the picture... Is there a special way to insert a picture?

Many Thanks,

Corey[/code]

 

[al_b_cnu]

Hi Corey,

Had the same problem myself the other week, see this link:
http://www.mrexcel.com/board2/viewtopic.php?t=281825&highlight=

 

[leadx]

Hey Alan,

Thanks for the link... I've been reading through both threads but I can't seem to find a solution to my challenge.

Just to be clear... below is a picture of my userform:

The browse button... is coded with the code you provided my to insert the picture in the form...

My problem is I need to figure a way to get this picture into the sheet with the top right corner starting in cell C9.

I can't seem to find the right solution to this... do you know a solution for this?

Thanks again,

Corey

 

[al_b_cnu]

Hi Corey,

I'm going to be rather busy all weekend,but will have a look on Monday morning if no-one has come up with a solution for you.

Doesnt seem too difficult though.

Alan

PS Nice house!