İmage nesnesine hem Jpg hem de Png formatlı fotoğraf alabilme

[ayhan518]

Merhaba,
Aşağıdaki kod yardımı ile listboxa tıkladığımda ilgili kişinin yalnızca jpg formatındaki fotoğraflarını image nesnesine alabiliyorum. Fakat albümümde çok sayıda png formatlı fotoğraf bulunuyor. Bu kodu hem Jpg hem de Png formatlı fotoğrafları çalıştıracak şekilde nasıl güncelleyebiliriz? Cevaplarınız ve yardımlarınız için şimdiden teşekkür ederim

resimYol = ThisWorkbook.Path & "\personel\"

resimler = Dir(resimYol & "*.*")
resim = 0
TextBox3.Value = LabelA2 & " " & LabelA3 & " " & LabelA1 & "_1"
TextBox4.Value = LabelA2 & " " & LabelA3 & " " & LabelA1 & "_2"
TextBox5.Value = LabelA2 & " " & LabelA3 & " " & LabelA1 & "_3"
TextBox6.Value = LabelA2 & " " & LabelA3 & " " & LabelA1 & "_4"
TextBox7.Value = LabelA2 & " " & LabelA3 & " " & LabelA1 & "_5"
While resimler <> ""
DoEvents
resimlerAd = Mid(resimler, 1, Len(resimler) - 4)
If resimlerAd = Me.TextBox3.Text Then
Me.Image1.Picture = LoadPicture(resimYol & resimler)
resim = 1
End If

If resimlerAd = Me.TextBox4.Text Then
Me.Image2.Picture = LoadPicture(resimYol & resimler)
resim = 1
End If

If resimlerAd = Me.TextBox5.Text Then
Me.Image3.Picture = LoadPicture(resimYol & resimler)
resim = 1
End If

If resimlerAd = Me.TextBox6.Text Then
Me.Image4.Picture = LoadPicture(resimYol & resimler)
resim = 1
End If

If resimlerAd = Me.TextBox7.Text Then
Me.Image5.Picture = LoadPicture(resimYol & resimler)
resim = 1
End If

resimler = Dir
Wend
If resim = 0 Then Me.Image1.Picture = LoadPicture(resimYol & "resimYok.jpg")
If resim = 0 Then Me.Image2.Picture = LoadPicture(resimYol & "resimYok.jpg")
If resim = 0 Then Me.Image3.Picture = LoadPicture(resimYol & "resimYok.jpg")
If resim = 0 Then Me.Image4.Picture = LoadPicture(resimYol & "resimYok.jpg")
If resim = 0 Then Me.Image5.Picture = LoadPicture(resimYol & "resimYok.jpg")
[code]