Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
500to504
500to504
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ovale Shapes färben

Forumthread: Ovale Shapes färben

Ovale Shapes färben
20.10.2004 15:15:41
Gregor
Hallo
Ich möchte auf einem Blatt alle Ovalen Shapes (über 1000 Stück) auf gelb setzen. Die quadratischen Shapes müssen unverändert bleiben. Das heisst, der Befehl
ActiveSheet.Shapes.SelectAll
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 5
geht nicht.
Wie muss die genaue Shape-Bezeichnung lauten?
Gruss Gregor
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ovale Shapes färben
René
Wenn die Shapes erzeugt werde, bekommen die alle einen namen zugewiesen.
Bei ovalen Shapes lautet der Name dann "oval 1" oder "oval 2" usw.
Du musst also nur sagen, dass alles shapes, die oval*.* heissen eingefärbt werden sollen
AW: Ovale Shapes färben
Gregor
Danke René
Die Shapes haben jedoch alle einen Eigennamen, das heisst, sie wurden umbenannt. Gibt es gleichwohl eine Möglichkeit?
Danke und Gruss
Gregor
Anzeige
AW: Ovale Shapes färben
René
die ovale Shapes heissen msoShapeOval
damit kannst du sie ansprechen. Du musst dem Makro sagen dass alle diese msoShapeOval geändert werden sollen.
AW: Ovale Shapes färben
20.10.2004 16:09:31
Gregor
Ja, aber wie heisst dieser Befehl genua? Mit
ActiveSheet.Shapes.Shape(msoShapeOval).Select
klappt es nicht
Bin dir dankbar, wenn du mir weiterhelfen kannst.
Gruss Gregor
Anzeige
AW: Ovale Shapes färben
Reinhard
Hi Gregor,
ungetestet, anstatt msoShapeOval kannst du auch die Zahl 9 nehmen, ist schneller bei 1000 Ovalen

Sub farben()
For Each sh In Worksheets(1).Shapes
If sh.Type = msoShapeOval then
'färben
End If
Next sh
End Sub

Gruß
Reinhard
Anzeige
AW: Ovale Shapes färben
20.10.2004 17:25:20
Gregor
Rainer
Vielen Dank für deine Hilfe.
Mit dem Färben klappt es jedoch noch nicht, übe weiter.
Gruss Gregor
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige