Hallo Liebe Helferinnen und Helfer,
ich füge mit folgendem Code ein Bild in eine Zelle ein.
Dim Dat As String
Dim Zelle As Range
Dim ScaleA As Double
Dat = Application.GetOpenFilename(, , "Bild auswählen", , False)
Set Zelle = Cells(Range("A1").End(xlDown).Row + 0, 11)
'Bild einfügen
Select Case Right(Dat, 3)
Case "bmp", "jpg", "tif", "gif", "jpeg"
ActiveSheet.Pictures.Insert(Dat).Select
With Selection.ShapeRange
.Top = Zelle.Top
.Left = Zelle.Left
ScaleA = WorksheetFunction.Min(Zelle.Width / .Width, Zelle.Height / .Height)
.Height = .Height * ScaleA
End With
Selection.Placement = xlMoveAndSize
Selection.PrintObject = True
Case Else
MsgBox "Sie haben kein gültiges Bild ausgewählt"
End Select
End Sub

Das funktioniert auch sehr gut.
Zum Problem:
die Bilder werden leider nur als Verknüpfung eingefügt. Sobald die originale Bilddatei gelöscht wird sind die Bilder mit dem Hinweis "Das verknüpfte Bild kann nicht angezeigt werden" nicht mehr zu sehen.
sicher ist der Ansatz mit SaveWithDocument der richtige. nur bin ich völlig Ratlos an welche Stelle in meinem Code der Befehl eingefügt werden muss...
Für eure Hilfe bin ich sehr dankbar.
Gruß Patrick