Ellipsen (Shapes) Hintergrund färben
06.03.2016 11:53:05
Dieter(Drummer)
mit folgemdem Code werden per Klick auf eine Ellipse (Shape) die ersten 5 Ellipsen grün gefärbt. Es sind insgesamt 7 in Tabelle 1. Das funktioniert auch gut. Kann der Code auch gekürzt werden?
Code:
Sub AlleGrün() 'Die ersten 5 Shapes erhalten Hintergrundfarbe grün
Worksheets(1).Shapes(1).Fill.ForeColor.RGB = vbGreen
Worksheets(1).Shapes(2).Fill.ForeColor.RGB = vbGreen
Worksheets(1).Shapes(3).Fill.ForeColor.RGB = vbGreen
Worksheets(1).Shapes(4).Fill.ForeColor.RGB = vbGreen
Worksheets(1).Shapes(5).Fill.ForeColor.RGB = vbGreen
End Sub
Mit der Bitte um evtl. kürzeren Code, wenn möglich.
Gruß, Dieter(DRummer)
Anzeige