Shape formatieren ohne select ?
Stefan
so früh am Morgen benötige ich bereits Eure Hilfe :-)
Ich muss eine Reihe von Schaltflächen formatieren, jedoch bleibe ich bisher immer beim Change-Ereigniss hängen (dank select):
ActiveSheet.Shapes.Range(Array("Button 11", "Button 12", "Button 13", _
"Button 14" _
, "Button 15", "Button 16", "Button 17", "Button 18" _
, "Button 19", "Button 20", "Button 21", "Button 22" _
, "Button 23", "Button 24", "Button 25", "Button 26" _
, "Button 27", "Button 28", "Button 29", "Button 30" _
, "Button 31", "Button 32", "Button 33", "Button 34" _
, "Button 35", "Button 36")).Select
With Selection.Font
.Name = "Arial"
.FontStyle = "Fett"
.Size = 10
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 1
.Underline = xlNone
.ColorIndex = xlAutomatic
End With
Ich versuche ja schon immer Select zu vermeiden, wo es nur geht. Aber hier fehlt mir irgendwie der richtige Ansatz. Bei meinen bisherigen Ideen scheiterte ich immer an der Fehlermeldung 'Object unterstützt diese Eigenschaft oder Methode nicht'.
Kann mir bitte jemand auf die Sprünge helfen ?
Besten Dank.
Gruß
Stefan K.