Adding a Picture to a Userform

[Submersed]

Hi all,

I am trying to Create a Button on a userform which is like a "browse" button, so you click the button and then you can go through and select a picture which will then input the picture into the userform.

Is there anyways i can do this?

thanks

 

[Submersed]

Think i have sorted something out....but would still like to know if anyone can do it better!

 

[Andrew Poulsom]

Insert a UserForm with a CommandButton and an Image control. Then try:

Private Sub CommandButton1_Click()
    Dim FName As Variant
    FName = Application.GetOpenFilename(FileFilter:="Pictures,*.jpg", Title:="Select a Picture", MultiSelect:=False)
    If FName <> False Then
        Image1.Picture = LoadPicture(FName)
    End If
End Sub

 

[northwolves]

Try(Without testing):

Private Sub CommandButton1_Click()
Dim p
p = Application.GetOpenFilename("Image Files (*.bmp;*.jpg;*.gif), *.bmp;*.jpg;*.gif", , "Please select an image file")
If p <> False Then Me.Picture = LoadPicture(p)
End Sub

Regards
Northwolves