CheckBox in Farbe

16/03/2010 - 13:26 von IB59 | Report spam
Hallo Excel Fans,

um aktivierte Kontrollkàstchen vor dem Speichern einzufàrben, habe ich
mir dieses Makro zusammenkopiert.

Sub farbe()
Dim objShape As Shape
For Each objShape In ActiveSheet.Shapes
If objShape.Type = msoFormControl And _
Left$(objShape.Name, 9) = "Check Box" Then
objShape.Select
With Selection
If .Value = 1 Then
.ShapeRange.Fill.ForeColor.SchemeColor = 43
End If
End With
End If
Next
ActiveCell.Select
End Sub

Die aktivierten Kàstchen werden erkannt. Leider klappt
".ShapeRange.Fill.ForeColor.SchemeColor = 43" nicht.
Wer kann helfen ?

Beste Grüße
Ingo Bluhm
 

Lesen sie die antworten

#1 Peter Schleif
16/03/2010 - 15:13 | Warnen spam
IB59 schrieb am 16.Mrz.2010 13:26 Uhr:

Die aktivierten Kàstchen werden erkannt. Leider klappt
".ShapeRange.Fill.ForeColor.SchemeColor = 43" nicht.



Da fehlt noch die Angabe der Art der Füllung:

.ShapeRange.Fill.Solid
.ShapeRange.Fill.ForeColor.SchemeColor = 43

Peter

Ähnliche fragen