Merhabalar,
Excelde herhangi bir metin girdiğimde karşılığı olarak bunun fotoğrafını getirsin istiyorum. Bir kod yazdım ama bu kodda hata alıyorum.
Alıntı
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [b1]) Is Nothing Then Exit Sub
'Resim yolunun bulunması
Dim ResimYolu As Variant
Dim Resim As Object
ResimYolu = ActiveWorkbook.Path & "" & "Ankara.jpg"
' Resmi oluştur
Set Resim = ActiveSheet.Pictures.Insert(ResimYolu)
End Sub
Aldığım hata da bu. Destek lütfen.
