Excel Visual Basic hata kodu yardım... 1004

09-03-2024, 17:19:25

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.

09-03-2024, 20:56:42

#2

Evreka63

Chatgpt den destek iste, bana bir çok alanda yardımı dokunuyor

03-07-2025, 23:46:04

#3

HytAkb

sanırım bir şeyler buldum

Dim ResimYolu As String
Dim Resim As Object

ResimYolu = ActiveWorkbook.Path & "" & "Ankara.jpg"
Set Resim = ActiveSheet.Pictures.Insert(ResimYolu)
End Sub