Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
676to680
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
676to680
676to680
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bilder auf Tabellenblatt markieren

Bilder auf Tabellenblatt markieren
06.10.2005 09:55:13
Matthias
Hallo,
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bilder auf Tabellenblatt markieren
06.10.2005 12:03:30
Leo
Hi,
Hi,
quick & dirty
If activesheet.shapes.count &gt 0 then
on error resume next
ActiveSheet.DrawingObjects.Select
Selection.ShapeRange.PictureFormat.ColorType = msoPictureGrayscale
end if
mfg Leo
AW: Bilder auf Tabellenblatt markieren
06.10.2005 17:22:34
Matthias
Vielen dank Leo, hat einwandfrei geklappt.
Die Zeile "on error resume next" überspringt wohl einfach die Fehlermitteilung? Ist 'ne tolle Sache, die man sicher auch mal an anderer Stelle verwenden kann.....
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige