Resim çağırmak için forumdan aldığım aşağıdaki kodu kullanıyorum ama resim istediğim hücrede değil sayfanın baş köşesinde çıkıyor. nerede hata yapıyorum yardımcı olurmusunuz lütfen. d22 de gözükmesi lazım ama a 3 gibi biryerlerde gözüküyor.
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.DrawingObjects.Delete
Range("d22").Select
resimadi = LoadPicture("")
resimadi = "d120.jpg"
On Error Resume Next
ActiveSheet.Pictures.Insert("C:\resim\" & resimadi).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 68 'yükseklik
Selection.ShapeRange.Width = 97 'genişlik
Selection.ShapeRange.Rotation = 0#
Range("b22").Select
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.DrawingObjects.Delete
Range("d22").Select
resimadi = LoadPicture("")
resimadi = "d120.jpg"
On Error Resume Next
ActiveSheet.Pictures.Insert("C:\resim\" & resimadi).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 68 'yükseklik
Selection.ShapeRange.Width = 97 'genişlik
Selection.ShapeRange.Rotation = 0#
Range("b22").Select
End Sub
