Bilder die mit PlacePictureInCell integriert wurden, finden

[Caldolan]

Um die Dokumentation abzuschließen:
Ohne das

Code:

If Cells(Zeile, Spalte).HasRichDataType Then
...
end if

drumrum gebaut wird, führt bei eienem vorher Selektierten Bild ActiveSheet.Shapes(Selection.Name).PlacePictureInCell zu einem Absturz und Selection.PlacePictureInCell oder Selection.ShapeRange.PlacePictureInCell zu einem Laufzeitfehler 438.