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