- Katılım
- 25 Ağustos 2012
- Mesajlar
- 562
- Excel Vers. ve Dili
- Office 2003
- Altın Üyelik Bitiş Tarihi
- 3.7.2018
Değerli hocalarım herkese kolay gelsin. Bir çalışmamda kullanmak üzere Resim getirmek istiyorum. Command butona bastığımda Resim dosyası açılıyor , buradan istediğim resmi JPEG formatında seçtiğim zaman ( ! geçersiz resim dosyası hatası alıyorum) Bu resmi belirleyeceğim bir alana örneğin D22:BY58 hücreleri arasına getirmek istiyorum. Makroyu düzeltmeme yardımcı olurmusunuz. Şimdiden teşekkürler
Private Sub CommandButton11_Click() 'resim getirme
Dim Filtre As FileDialogFilters
On Error GoTo Catch
With Application.FileDialog(MsoFileDialogType.msoFileDialogOpen)
Set Filtre = .Filters
With Filtre
.Clear
.Add "Resimler", "*.bmp,*.jpg,*.gif"
End With
.AllowMultiSelect = False
If .Show = False Then Exit Sub
Image1.Picture = LoadPicture(.SelectedItems(1))
End With
Exit Sub
Catch:
Call MsgBox("Geçersiz Resim Dosyası", vbExclamation)
End Sub
Private Sub CommandButton11_Click() 'resim getirme
Dim Filtre As FileDialogFilters
On Error GoTo Catch
With Application.FileDialog(MsoFileDialogType.msoFileDialogOpen)
Set Filtre = .Filters
With Filtre
.Clear
.Add "Resimler", "*.bmp,*.jpg,*.gif"
End With
.AllowMultiSelect = False
If .Show = False Then Exit Sub
Image1.Picture = LoadPicture(.SelectedItems(1))
End With
Exit Sub
Catch:
Call MsgBox("Geçersiz Resim Dosyası", vbExclamation)
End Sub