Bilder die mit PlacePictureInCell integriert wurden, finden

[Caldolan]

Noch etwas, falls jemand dasselbe Problem hat...

Ich hab in einer Schleife Mehrere Bilder die schon in einem Excelfile sind mit ActiveSheet.Shapes(Selection.Name).PlacePictureInCell in die Zellen einbetten wollen.

Der Code lief und machte alles richtig solang der Editor auf war. War der Editor geschlossen stürzte Excel ab. Die Lösung war es in eine .HasRichDataType Abfrage zu packen.

Code:

                If Cells(zaEhler, bildSpalte).HasRichDataType Then
                    Selection.ShapeRange.PlacePictureInCell
                End If

Dann lief der Code auch ohne offenen Editor.