Shape-Objekte formatieren ?
Stefan
ich habe ein kleines Problem bei der Formatierung von selbstgebauten Auswahlbuttons.
Nach dem draufklicken soll sich der jeweilge Button verfärben und so die Auswahl signalisieren.
Das mit der Farbe geht auch, nur bei der Änderung der Schriftfarbe bekomme ich eine Fehlermeldung.
Also alles, was in dem unten stehenden Code mit .Fill beginnt funktioniert, alles was mit .Font beginnt produziert einen Fehler. Könnt Ihr mir bitte bei der korrekten Schreibweise behilflich sein ?
With ActiveSheet.Shapes.Range(Array("AutoShape 975", "AutoShape 976", _
"AutoShape 977", "AutoShape 978"))
.Fill.Visible = msoTrue
.Fill.ForeColor.SchemeColor = 22
.Fill.BackColor.SchemeColor = 9
.Fill.TwoColorGradient msoGradientHorizontal, 3
.Font.ColorIndex = xlAutomatic
.Font.Underline = xlUnderlineStyleNone
.Font.Size = 11
End With
Vielen Dank im Voraus.
Gruß
Stefan