in über 1000 Excel-Tabellen liegen jeweils auf einem bestimmten Tabellenblattnamen verschiedene eingefügte Bildobjekte. Diesen möchte ich jetzt eine Graustufenformatierung geben. So weit, so gut. Mein Problem sind die wenigen Tabellenblätter, die noch leer sind. Auf diesen findet er keine Bildobjekte. Deshalb suche ich jetzt die If-Anweisung, mit der ich abfragen kann, ab es auf dem tabellenblatt überhaupt sogenannte DrawingObjects gibt!
Kann mir einer von euch helfen?
Hier die beiden Zeilen, die ich verwende. Sie funktionieren - setzen aber eben leider voraus, dass die Objects auch existieren.
ActiveSheet.DrawingObjects.Select
Selection.ShapeRange.PictureFormat.ColorType = msoPictureGrayscale
Tschuess Matthias