VBA: Addressing between userforms

[Legacy 143009]

Hi Guys!

My question is very short but I couldn't solve it.
I have a Johnjpg1 image in Form1. And at the end of my worksheet Sub Module it shows Form2.

If A1="John 01" Then
Display  From1\Johnjpg1 in Form2\Frame1

Thanks a lot!

 

[Legacy 143009]

I doesn't have to be clickable. Even it's better if it is not clickable. I just wanna use it like an image result pop up.

 

[bertie]

Hi again,

Why not just load the image into the control on form2?
i.e.,
Load UserForm2 - this gives you access to the forms controls.
Populate the image control.
Show UserForm2

[COLOR=darkblue]Sub[/COLOR] test()
   [COLOR=darkblue]If[/COLOR] UCase(Sheets("Sheet1").Range("A1").Value) = "JOHN" [COLOR=darkblue]Then[/COLOR]
      Load UserForm2
      UserForm2.Image1.Picture = LoadPicture("[COLOR=#ff0000]C:\My Pictures\1111.jpg[/COLOR]")
      UserForm2.Show
   [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
End [COLOR=darkblue]Sub[/COLOR]

 

[Legacy 143009]

Yes bertie, in fact you are right. I thought about this but I don't want to stay bind with a directory address. If there is a way to show parent address it suits me fine. Because the project file and the pictures are in the same directory.

BTW, it is not going to call image into form, also in a specific frame in the form.

 

[bertie]

Edit as highlighted:

[COLOR=darkblue]Sub[/COLOR] test()
   [COLOR=darkblue]If[/COLOR] UCase(Sheets("Sheet1").Range("A1").Value) = "JOHN" [COLOR=darkblue]Then[/COLOR]
      Load UserForm2
      UserForm2.Image1.Picture = LoadPicture([COLOR=#ff0000]ThisWorkbook.Path [/COLOR]& "\1111.jpg")
      UserForm2.Show
   [COLOR=darkblue]End[/COLOR] [COLOR=darkblue]If[/COLOR]
End [COLOR=darkblue]Sub[/COLOR]

 

[Legacy 143009]

Ummm... Not to call in a frame but in a image field. Clever This works for me. Thanks again bertie!

 

[Legacy 143009]

Ow, ow ow, I forgot, I have 4 frames in Form2 and they are linked with 4 cell values (A2:A4).
What if I want to add several canditions?

 

[bertie]

Just remember the sequence:
Load the form,
manipulate/populate the controls,
show the form.

If you have several conditions consider a Select Case statement. See the help file.