- Katılım
- 3 Haziran 2017
- Mesajlar
- 797
- Excel Vers. ve Dili
- 2007, 32
- Altın Üyelik Bitiş Tarihi
- 08/06/2018
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.
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ü.
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
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
-
18.7 KB Görüntüleme: 18
Son düzenleme: