Bilder die mit PlacePictureInCell integriert wurden, finden

[Caldolan]

Hi Zusammen,
ich hab eine Exceldatei bei der in Spalte A in machen zellen ein Bild eingefügt wurde mit

Code:

PlacePictureInCell

die anderen Zellen sind leer. Es gibt auch keine Bilder die anders integriert wurden.

Nun möchte ich eine Schleife Programmieren, der die Zellen in Spalte A durchgeht und wenn diese ein Bild enthält soll eine MSGBox mit einer meldung geben.

Kennt da jemand eine Möglichkeit?

[Flotter Feger]

Hallo,

ist mir ein wenig zu wenig Information, was du da gibst.

Ich kann mir nicht vorstellen, das die MsgBox der Wahrheit letzter Schluss sein soll ...

Wie die Schleife aufgebaut ist, hängt immer ein wenig davon ab, was genau passieren soll.

[{Boris}]

Hi,

ist zwar nicht 100%, aber idR reicht die Prüfung auf HasRichDataType. Für C übergibst Du die Zelle, die überprüft werden soll.

Code:

Function BildInZelle(C As Range)
If C.HasRichDataType Then
    BildInZelle = True
End If
End Function

VG, Boris