Eigene Symbolleiste
Sven
ich hab hier einen Code für eine eigene Symbolleiste zu erstellen. Das ist nur der Code für einen normalen Button. Was füge ich ein damit ich einen Button mit untermenü einfügen kann? Bitte um hilfe.
mfg Sven
Sub BaueSymbolleiste()
Dim cB As CommandBar
Dim CBC As CommandBarButton
Dim i%
On Error Resume Next
Application.CommandBars(SymbolleistenName).Delete 'löschen, falls vorhanden
Set cB = Application.CommandBars.Add(Name:=SymbolleistenName, _
temporary:=True, Position:=msoBarTop)
On Error GoTo 0
If Application.CommandBars(SymbolleistenName).Visible = False Then
cB.Visible = True
' den Wert 4 immer mit der Anzahl der zu erstellenden Symbole abgleichen
For i = 1 To 4
Set CBC = cB.Controls.Add(Type:=msoControlButton)
With CBC
.Style = msoButtonIconAndCaption
Select Case i
Case 1
.BeginGroup = True
.Caption = "Speichern"
.OnAction = "PlanSpeichern"
.TooltipText = "Dienstplan speichern"
.FaceId = 3
.Style = msoButtonIconAndCaption
Case 2
.BeginGroup = True
.Caption = "Schließen"
.OnAction = "PlanSchliessen"
.TooltipText = "Dienstplan schließen"
.FaceId = 103
.Style = msoButtonIconAndCaption
Case 3
.BeginGroup = True
.Caption = "Drucken"
.OnAction = "PlanDrucken"
.TooltipText = "Dienstplan drucken"
.FaceId = 4
.Style = msoButtonIconAndCaption
Case 4
.Caption = "Seitenansicht"
.OnAction = "PlanSeitenansicht"
.TooltipText = "Seitenansicht"
.FaceId = 109
.Style = msoButtonIconAndCaption
End Select
End With
Next i
End If
End Sub
Anzeige