LoadPicture

[Yüksel Varlı]

Merhaba,
Aşağıdaki kodlarda "LOADPİCTURE" kelimesinin üzeri mavi hata uyarısı ile kaplanıyor. "Görev veya işlev bulunamadı diye mesaj veriyor. Acaba neden olabilir?
Selamlar.

Dim son As Integer
Dim MyPic As Variant
On Error Resume Next
MyPic:
MyPic = Application.GetOpenFilename("JPEG,*.jpg,GIF,*.gif,Bitmap, *.bmp")
If MyPic <> False Then
resim.PictureSizeMode = fmPictureSizeModeZoom
resim.Picture = LoadPicture(MyPic)
Sheets("genel").ActiveCell.Offset(0, 13) = MyPic
cevap = MsgBox(" " & MyPic & " kay&#305;t edildi.Yeni resim eklemek istiyor musunuz?", vbExclamation + vbYesNo, "RES&#304;M KAYIT")
If cevap = vbYes Then
GoTo MyPic
End If
End If

End Sub

 

[Recep İpek]

Sadece bir fikir!
MyPic değişgenini iki yerde kullanmanızdan kaynaklanıyor olabilir.

GoTo MyPic yerine başka bir kelime kullanabilirsiniz.

 

[Yüksel Varlı]

Sayın Ripek,
Bu saatte gösterdiğiniz ilgiden dolayı çok teşekkür ederim. Önerinizi denedim. Olmadı. Acaba loadPicture deyimi için Tolls->Reference den herhangi bir seçenek mi işaretli olması gerekiyor?

 

[Yüksel Varlı]

Dosya Ektedir.

 

[Recep İpek]

Sonunda bulabildim.Referanslardan "OLE Automation"u ekleyiniz.

 

[Yüksel Varlı]

Sayın Ripek,
Teşekkür ederim. geç saatlere kadar zamanınızı aldım. Programın tamamını çalıştıramadım henüz,eksikleri var çünkü... Ancak "Ole Automation" ekleyince bahis konusu hata düzeldi.
Sizin şahsınızda, tüm excel.web.tr ailesinin bayramını kutlar başarılar dilerim.

 

[Yüksel Varlı]

Sevgili Arkadaşlar,
Programı tamamladım. Belki işe yarar ümidiyle buraya ekliyorum. Kullanmaya başlamadan önce resim yollarının yazılı olduğu sütundaki bilgileri silerseniz sorunsuz kullanılabilir.
Ripek Kardeşimize teşekkürlerimle...