Dinamik Resim Değiştirme Butonu

[üveyin]

Arkadaşlar merhaba,
Aşağıdaki kod da hata alıyorum yapmak istediğim şey Image1 deki ipg uzantılı dosyayı userformdaki commandbutton!u tıkladığımda resimlerin değiştirme yolunu seçmek.vba dan manuel yapabiliyoruz biliyorum.



Private Sub CommandButton7_Click()

Dim dialogbox As FileDialog
Dim dosyaY As String

Set dialogbox = Application.FileDialog(msoFileDialogFolderPicker)

dialogbox.AllowMultiSelect = False
dialogbox.Filters.Clear
dialogbox.Filters.Add "Resim Dosyası", "*.jpg?", 1

dialogbox.Show

If dialogbox.SelectedItems.Count = 1 Then

dosyaY = dialogbox.SelectedItems(1)

End If

Image1.Picture = LoadPicture(dosyaY)


End Sub

 

[Biolightant]

Merhaba,
kodlar çözüm getirmediği için silindi...

 

[üveyin]

merhaba dosya yolunu ve botun atamasını yaptım dosya yolu açılıyor amaresim seçildiğinde bu hatayı veriyor.

 

[Biolightant]

Manuel olarak
UserForm u dizayn ettiğiniz yerde
İmage nesnesinin özelliklerinde bulunan Picture tıklayarak

Kodlarla seçip hata veren resmi seçiniz
VBA editör Invalid Picture diye hata uyarısı veriyor mu ?

 

[üveyin]

buradan seçmede bir sıkıntı yok gözüküyor.

 

[Biolightant]

buradan seçmede bir sıkıntı yok gözüküyor.

kodlarla hata veren AYNI resim se üzgünüm başka arkadaşlar yardımcı olacaktır.
Kolay gelsin.

 

[üveyin]

teşekkür ederim ama tüm aynı boyut farklı resimlerde yapıyor resimi seçsemde getirmiyor