Bild einfügen statt zu verknüpfen.

Sub BildLaden()
'mit Unterstützung von Beverly aus www.herber.de
Dim sPicture As String, pic As Picture, shaShape As Shape
'Öffnen Dialog zum Auswählen der Grafik
sPicture = Application.GetOpenFilename _
("Grafik laden (*.png), *.png", , "Wähle deine erstellte Unterschrift aus !")
'wenn keine Grafik vorhanden, dann...
If sPicture  "False" And sPicture  "Falsch" Then
ActiveSheet.Unprotect Password:=""
'Variante 1: wenn 1 Bild enthalten ist, dann dieses löschen
'If ActiveSheet.Pictures.Count > 0 Then ActiveSheet.Pictures(ActiveSheet.Pictures.Count). _
Delete
'Variante 2: prüfen, ob sich bereits eine Bild im Blatt befindet, dessen Zelladresse der  _
linken oberen Ecke mit D45 übereinstimmt,
'falls noch weiter Bilder eingefüget werden sollen
For Each shaShape In ActiveSheet.Shapes
If shaShape.TopLeftCell.Address = "$E$45" Then
shaShape.Delete
Exit For
End If
Next shaShape
 Set pic = ActiveSheet.Shapes.AddPicture(sPicture, msoFalse, msoTrue, Cells(45, 5).Left,  _
Cells(49, 6), 50, 30)  'einfügen
'Set pic = ActiveSheet.Pictures.Insert(sPicture)                                             _
'verknüpfen
With pic
.ShapeRange.LockAspectRatio = msoFalse
.Height = Range("E45:F49").Height
.Width = Range("E45:F49").Width
.Top = Range("E45:F49").Top
.Left = Range("E45:F49").Left
.Placement = xlMoveAndSize
End With
ActiveSheet.Protect Password:=""
Set pic = Nothing
End If
End Sub

Set pic = ActiveSheet.Shapes.AddPicture(sPicture, msoFalse, msoTrue, Cells(45, 5).Left, Cells(49, 6), 50, 30)