CommandButton einfärben
27.11.2002 13:15:00
Thomas
nachdem ich endlich meine erste Symbolleiste eigenerstellt habe,
fehlt mir noch der I-Punkt. Meine Symbolleiste wird wie folgt erzeugt, jedoch möchte ich dunkelblaue Button mit weißer Schrift.
Kann jemand helfen??
Dim NCB As CommandBar
Dim Button(1 To 2) As CommandBarButton
Set NCB = Application.CommandBars.Add(Name:="BSC", Position:=msoBarBottom, Temporary:=True)
With NCB
.Visible = True
.Left = 50
End With
Set Button1 = NCB.Controls.Add(Type:=msoControlButton)
With Button1
.Width = 400
.Style = msoButtonCaption
.Caption = "zur Startmaske"
.TooltipText = "springt zur Startmaske zurück für eine weitere Auswahl"
.Visible = True
.OnAction = "Startmaske aktivieren"
End With