Hallo ?!
Nachfolgender Code fügt Dir ein Bild in C3 mit einer festen Größe von 12x12 ein.
[code]Sub Bild_einfügen()
Dim objBild As Object
Set objBild = ActiveSheet.Shapes.AddPicture("Pfad und Dateiname mit Bildendung", _
False, True, Range("C3").Left, Range("C3").Top, 12, 12)
End Sub[/code]
Anstelle des Textes "[i]Pfad und Dateiname mit Bildendung[/i]" musst Du Deinen Pfad und Deinen Bildnamen eintragen, z.B. "[i]C:\Testbild.jpg[/i]" .
Gruß,
Oliver