How to open a picture just when it exists?

[marlonsaveri]

Hi,
When I use "On Error Resume Next", I avoid an error here:

mypicture = ThisWorkbook.Path & Application.PathSeparator & ActiveSheet.Name & "-" & mtx_prop(i, 1) & ".jpg"
    On Error Resume Next
    Image1.Picture = LoadPicture(mypicture)

However, i need something like this:

If picture exists: 
     Image1.Picture = LoadPicture(imagem)
Else
    Image1.visible = false

How could I write it?


And a second question:
Actually, a property (given by mtx_prop(i,1) could have more the one picture, so, I want something like this:

if, to this property, there was j pictures:
mypicture(1) = ThisWorkbook.Path & Application.PathSeparator & ActiveSheet.Name & "-" & mtx_prop(i, 1) & [B]j[/B] &  ".jpg"
     Image1.Picture = LoadPicture(mypicture(1))
mypicture(2) = ThisWorkbook.Path & Application.PathSeparator &  ActiveSheet.Name & "-" & mtx_prop(i, 1) & j &  ".jpg"
      [B]Image2[/B].Picture = LoadPicture(mypicture([B]2[/B]))

 

[Domenic]

For your first question, try...

[font=Verdana][color=darkblue]If[/color] Dir(mypicture) <> "" [color=darkblue]Then[/color]
     Image1.Picture = LoadPicture(imagem)
[color=darkblue]Else[/color]
    Image1.Visible = [color=darkblue]False[/color]
[color=darkblue]End[/color] [color=darkblue]If[/color]
    [/font]

 

[marlonsaveri]

Hi, thanks.
In this new way, I think we don't need chek if the image exists. However, I can't open the picture:

myfolder = ThisWorkbook.Path & Application.PathSeparator
firstname = ActiveSheet.Name & "_" 
Files = Dir(myfolder & firstname & "*.jpg*", vbArchive)    

j = 1
While Files <> vbNullString   
Set createpag = Me.MultiPage1.Pages.Add("page" & j, j, Me.MultiPage1.Pages.Count)    
Set NewImg = Me.MultiPage1.Pages(j - 1).Controls.Add("forms.image.1", "image" & j, True) 'change 1 by j??    
img = Files(j) here, i wanna write "for each Image on folder, but how?"     
NewImg.Visible = True     
NewImg.Left = 20     
NewImg.Top = 20 'and I need to increase the size     
NewImg.Picture = LoadPicture(img)   j = j + 1  
Debug.Print Files  
Files = Dir(, vbArchive) 
Wend

 

[marlonsaveri]

Hi again, now I thing it's running. Thanks
I wanna let a sample here in a attachment, but I don't know how to do it