L'esempio che ti ho scritto inserirà l'immagine nella 4° riga, 5° colonna.
codice:Sub immagine() ActiveSheet.Pictures.Insert("C:\tuo_path\tua_immagine.gif").Select With ActiveSheet.Pictures(1) .Left = ActiveWindow.VisibleRange.Columns(5).Left .Top = ActiveWindow.VisibleRange.Rows(4).Top End With End Sub