Ovale Shapes färben
20.10.2004 15:15:41
Gregor
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