Klasörden Resim Görüntüleme / Userforma Çağırma / Sayfaya Atma

Katılım
3 Haziran 2017
Mesajlar
797
Excel Vers. ve Dili
2007, 32
Arkadaşlar,

Aşağıdaki kod ile userform üzerindeki Image1 nesnesine resim çağırıyorum. Ancak her türden resim kabul etmiyor. Mesela PNG uzantılı resim çağırınca hata veriyor. Debug dediğimde kırmızı kısma gidiyor. Oysa ben resimleri PNG olarak kaydetmek ve kodun tanımadığı bir fotoğraf olduğunda da uyarı vermesini istiyorum.

Kod:
Private Sub CommandButton24_Click()
Dim fPath  As String

fPath = ThisWorkbook.Path & "\Pics"
ChDrive fPath

Set fdgPicker = Application.FileDialog(msoFileDialogFilePicker)
With fdgPicker
.InitialView = msoFileDialogViewThumbnail
.Filters.Add "Graphics Files (*.PNG;*.png; *.bmp; *.gif; *.jpg; *.jpeg)", "*.PNG;*.png;*.bmp;*.gif;*.jpg;*.jpeg"
.FilterIndex = 1
If .Show = -1 Then
[COLOR="Red"]Image1.Picture = LoadPicture(.SelectedItems(1))[/COLOR]

resim_adi = fdgPicker.SelectedItems(1)
MsgBox "Resim seçildi.", vbInformation, "      Uyarı"
Else
MsgBox "Resim seçmediniz.", vbInformation, "      Uyarı"
End If
End With
End Sub
Veya bilgisayarın masa üstünde bulunan, örneğin "Sorular" isimli bir klasördeki resimleri SpinButton ile (ileri-geri) Image1 de görüntülemek mümkün mü?

Bir de, bir başka butonla, Image nesnesindeki resmi "5alt-a" isimli sayfamın E8 hücresinden başlayarak alt alta atmak istiyorum.

Yardımcı olabilir misiniz?

Not: Daha önce benzer konular açılmış ancak uyarlama yapamadım.
Hatta Halit Hoca çok geniş bir çalışma paylaşmış ama kodları uyarlayamadım bir türlü.
 

Ekli dosyalar

Son düzenleme:

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,757
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Bu resimler meselesi çok karışık ve baya meşekkatli iş
ben sadece size küçük bir örnek dosya gönderiyorum işine yarayan kısmı kullan geri kalanları sil
 

Ekli dosyalar

Katılım
24 Haziran 2017
Mesajlar
748
Excel Vers. ve Dili
türkçe
bu kod da png dosyalarınıda dosya seçme alanında gösteriyor ancak png dosyalarını seçerken hata veriyor. dosya seçme menüsünde sadece JPEG ve jpg uzantılı dosyaları gösterebilirmi.



Private Sub CommandButton1_Click()

Dim fPath As String



fPath = ThisWorkbook.Path & "\Pics"

ChDrive fPath



Set fdgPicker = Application.FileDialog(msoFileDialogFilePicker)

With fdgPicker

.InitialView = msoFileDialogViewThumbnail

.Filters.Add "Graphics Files (*.PNG;*.png; *.bmp; *.gif; *.jpg; *.jpeg)", "*.PNG;*.png;*.bmp;*.gif;*.jpg;*.jpeg"

.FilterIndex = 1



If .Show = -1 Then

MsgBox .SelectedItems(1)

Label1.Caption = .SelectedItems(1)

Image1.Picture = LoadPicture(.SelectedItems(1))



resim_adi = fdgPicker.SelectedItems(1)

MsgBox "Resim seçildi.", vbInformation, " Uyarı"

Else

MsgBox "Resim seçmediniz.", vbInformation, " Uyarı"

End If

End With

End Sub
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,757
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
Kod:
Kod:
Private Sub CommandButton1_Click()

Dim fPath As String

fPath = ThisWorkbook.Path & "\Pics"
ChDrive fPath

Set fdgPicker = Application.FileDialog(msoFileDialogFilePicker)

With fdgPicker
.InitialView = msoFileDialogViewThumbnail
.Filters.Add "Resim Dosyaları (*.jpg; *.jpeg)", "*.jpg;*.jpeg"
.FilterIndex = 1
If .Show = -1 Then
MsgBox .SelectedItems(1)
Label1.Caption = .SelectedItems(1)
Image1.Picture = LoadPicture(.SelectedItems(1))
resim_adi = fdgPicker.SelectedItems(1)
MsgBox "Resim seçildi.", vbInformation, " Uyarı"
Else
MsgBox "Resim seçmediniz.", vbInformation, " Uyarı"
End If
End With

End Sub
 

halit3

Uzman
Uzman
Katılım
18 Ocak 2008
Mesajlar
12,757
Excel Vers. ve Dili
2003 excell türkçe
ve
2007 excell türkçe
kod bende çalışıyor
 
Katılım
24 Haziran 2017
Mesajlar
748
Excel Vers. ve Dili
türkçe
@halit3 çözüldü hocam emeklerinize sağlık. teşekkür ederim
 
Üst