LoadPicture Save Picture does not work in userform

[Ritzl]

Hi all,
I am new to VBA and would appreciate step by step help.
I have a userform with an image on it. What I would like is to change the pic
ture during run time. I achieved that but each time when I unload the form the old picture is back..so how can I store the new one ? And here is my code

Private Sub Label7_Click()
Dim strFileName As String

strFileName = Application.GetOpenFilename(FileFilter:="Tiff Files(*.tif;*.tiff),*.tif;*.tiff,JPEG Files (*.jpg;*.jpeg;*.jfif;*.jpe),*.jpg;*.jpeg;*.jfif;*.jpe,Bitmap Files(*.bmp),*.bmp", FilterIndex:=2, Title:="Select a File", MultiSelect:=False)
If strFileName = "False" Then
MsgBox "No File Selected!"
Else
Me.Image8.Picture = LoadPicture(strFileName)
Image8.Height = 96
Image8.Top = 174
Image8.Width = 204
'MsgBox strFileName
'SavePicture Image, "test.bmp" ' does not work error message ????
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Me.Repaint


End If
End Sub


Thx in advance....

 

[Domenic]

I would suggest that you store the filename somewhere (ie. cell, defined name, etc) so that it can be retrieved when needed to load the picture to the image control at run-time. Otherwise, the VBA project object model would need to be accessed, and the assignment would need to take place before the userform is loaded or shown using the Designer property...

    ThisWorkbook.VBProject.VBComponents("UserForm1").Designer.Controls("Image1").Picture = LoadPicture("C:\Users\Domenic\Pictures\sample.jpg")
    UserForm1.Show

To allow access to the VBA project object model...

Ribbon > Developer Tab > Code Group > Macro Security > Macro Settings > Developer Macro Settings

...and select/check "Trust access to the VBA project object model".

Hope this helps!

 

[Ritzl]

i would suggest that you store the filename somewhere (ie. Cell, defined name, etc) so that it can be retrieved when needed to load the picture to the image control at run-time. Otherwise, the vba project object model would need to be accessed, and the assignment would need to take place before the userform is loaded or shown using the designer property...

    thisworkbook.vbproject.vbcomponents("userform1").designer.controls("image1").picture = loadpicture("c:\users\domenic\pictures\sample.jpg")
    userform1.show

to allow access to the vba project object model...

ribbon > developer tab > code group > macro security > macro settings > developer macro settings

...and select/check "trust access to the vba project object model".

Hope this helps!

thank you very much !