command button format
21.10.2021 14:37:41
Fred
ich habe auf meinem Sheet 4 Befehlsschaltflächen (activeX)
Die Namen: cb_01, cb_02, cb_03, cb_04
Wenn ich z.B. auf cb_01 klicke, wird diese Schaltfläche im Aussehen etwas verändert
Private Sub cb_01_Click()
Basis:
cb_01.BackColor = RGB(100, 100, 100)
cb_01.ForeColor = RGB(0, 255, 0)
cb_01.Shadow = False
end sub
Wie müßte ein Makro geschrieben werden (Private Sub Basis) um zuvor alle 4 Schaltflächen so zu formatieren:
ForeColor = RGB(100, 100, 100)
BackColor = RGB(242, 242, 242)
Shadow = True
Gruss
Fred