Symbolleisten-Schaltflächen



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Symbolleisten-Schaltflächen
von: TF
Geschrieben am: 29.05.2002 - 15:32:11

Hallo,

ich habe eine Symbolleiste eingebunden auf der sich nun 5 Schaltflächen befinden.

Kann man diese Schaltflächen auch höher machen (breiter geht ja) bzw. die Schriftart verändern oder Symbole einfügen?

Anbei der Code:


If Application.CommandBars("Datenbank").Visible = False Then
cb.Visible = True
For I = 1 To 5
Set CBC = cb.Controls.Add(Type:=msoControlButton)
With CBC
.Width = 150 ' Breite der Schalter
.Style = msoButtonCaption ' Text auf Schaltfläche
Select Case I
Case 1
.Caption = "Beenden"
.OnAction = "Beenden"
.TooltipText = "Datei beenden"
.BeginGroup = True
Case 2
.Caption = "Drucken"
.OnAction = "Drucken"
.TooltipText = "Drucken"
.BeginGroup = True
Case 3
.Caption = "Seitenansicht"
.OnAction = "Seitenansicht"
.TooltipText = "Seitenansicht"
.BeginGroup = True
Case 4
.Caption = "Ansicht +"
.OnAction = "Größer"
.TooltipText = "Ansicht vergrößern"
.BeginGroup = True
Case 5
.Caption = "Ansicht -"
.OnAction = "Kleiner"
.TooltipText = "Ansicht verkleinern"
.BeginGroup = True
End Select
End With
Next I
End If


Gruß

TF

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Listbox übernehmen"