Userforma Tüm Uzantılarda Resim Çağırma

[meslek5]

Merhaba değerli üstatlar.

Aşağıdaki kodlarla Userforma Jpg formatında resim çağırabiliyorum. Çağırılacak resim eğer jpg formatında değil de jpeg formatında yada png formatında ise resmi yine de çağırmak için kodda nasıl bir değişiklik yapmalıyım. Yani "RESİM" adlı klasördeki "CİVATA" adlı resim jpg, jpeg, png yada gif uzantılı olsa bile yine de çağırılsın.

Private Sub TextBox1_Change()
On Error Resume Next
ResimDosya = ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".Jpg"
If Dir(ResimDosya) = "" Then
Image1.Visible = False
Else
Image1.Visible = True
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".Jpg")
End If
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Private Sub TextBox1_Change()
On Error Resume Next
ResimDosya = ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".*"
If Dir(ResimDosya) = "" Then
Image1.Visible = False
Else
Image1.Visible = True
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\RESİM\" & ResimDosya)
End If
End Sub

 

[kulomer46]

Merhaba

Alternatif Çalışma

Private Sub TextBox1_Change()

On Error Resume Next

ResimDosya = ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".jpg"
If Dir(ResimDosya) <> "" Then
Image1.Visible = True
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".jpg")
exit sub
end if

ResimDosya = ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".jpeg"
If Dir(ResimDosya) <> "" Then
Image1.Visible = True
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".jpeg")
exit sub
end if

ResimDosya = ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".png"
If Dir(ResimDosya) <> "" Then
Image1.Visible = True
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".png")
exit sub
end if


ResimDosya = ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".gif"
If Dir(ResimDosya) <> "" Then
Image1.Visible = True
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".gif")
exit sub
end if

Image1.Visible = False

End Sub

 

[halit3]

png uzantılı dosyalar userformda image nesnesinde görüntülenemez.
bunun için dosyada dönüşüm yapmak gerekir

 

[meslek5]

Deneyiniz.

Private Sub TextBox1_Change()
On Error Resume Next
ResimDosya = ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".*"
If Dir(ResimDosya) = "" Then
Image1.Visible = False
Else
Image1.Visible = True
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\RESİM\" & ResimDosya)
End If
End Sub

çok teşekkür ederim.

 

[meslek5]

Merhaba

Alternatif Çalışma

Private Sub TextBox1_Change()

On Error Resume Next

ResimDosya = ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".jpg"
If Dir(ResimDosya) <> "" Then
Image1.Visible = True
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".jpg")
exit sub
end if

ResimDosya = ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".jpeg"
If Dir(ResimDosya) <> "" Then
Image1.Visible = True
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".jpeg")
exit sub
end if

ResimDosya = ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".png"
If Dir(ResimDosya) <> "" Then
Image1.Visible = True
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".png")
exit sub
end if


ResimDosya = ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".gif"
If Dir(ResimDosya) <> "" Then
Image1.Visible = True
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\RESİM\" & TextBox1 & ".gif")
exit sub
end if

Image1.Visible = False

End Sub

çok teşekkür ederim.