Code bitte anschauen, hab eine Frage dazu

Sub Symbolleiste_erstellen() On Error Resume Next Dim CB As CommandBar Dim CBC As CommandBarButton Set CB = Application.CommandBars(Symbolleistenname) Symbolleiste_entfernen Set CB = Application.CommandBars.Add(Name:=Symbolleistenname, _ Temporary:=False, Position:=msoBarTop) Set CBC = CB.Controls.Add(Type:=msoControlButton) With CBC .Caption = " !!! Speichern für uns !!!" .OnAction = "füruns_Speichern" .Style = msoButtonCaption .BeginGroup = True End With Set CBC = CB.Controls.Add(Type:=msoControlButton) With CBC .Caption = "Speichern für Hr. Huber" .OnAction = "Huber_Speichern" .Style = msoButtonCaption .BeginGroup = True End With Set CBC = CB.Controls.Add(Type:=msoControlButton) With CBC .Caption = "Kalender erstellen" .OnAction = "Erstellen" .Style = msoButtonCaption .BeginGroup = True End With Set CBC = CB.Controls.Add(Type:=msoControlButton) With CBC .Caption = "Hilfe" .OnAction = "Zur_Hilfe" .Style = msoButtonCaption .BeginGroup = True End With 'Set CBC = CB.Controls.Add(Type:=msoControlPopupmsoControlPopup, Temporary:=True) ' With CBC ' .Caption = "Drucken" ' .OnAction = CBC.Controls.Add(Type:=msoControlButton, Id:=1) ' .Style = msoButtonCaption ' .BeginGroup = True ' End With CB.Visible = True End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit
Const Symbolleistenname As String = "XYZ"
Sub Symbolleiste_erstellen()
Dim CB As CommandBar
Dim CBB As CommandBarButton
Dim CBP As CommandBarPopup
Call Symbolleiste_entfernen
Set CB = CommandBars.Add(Name:=Symbolleistenname, _
Temporary:=False, Position:=msoBarTop)
Set CBB = CB.Controls.Add(Type:=msoControlButton)
With CBB
.Caption = " !!! Speichern für uns !!!"
.OnAction = "füruns_Speichern"
.Style = msoButtonCaption
.BeginGroup = True
End With
Set CBB = CB.Controls.Add(Type:=msoControlButton)
With CBB
.Caption = "Speichern für Hr. Huber"
.OnAction = "Huber_Speichern"
.Style = msoButtonCaption
.BeginGroup = True
End With
Set CBB = CB.Controls.Add(Type:=msoControlButton)
With CBB
.Caption = "Kalender erstellen"
.OnAction = "Erstellen"
.Style = msoButtonCaption
.BeginGroup = True
End With
Set CBB = CB.Controls.Add(Type:=msoControlButton)
With CBB
.Caption = "Hilfe"
.OnAction = "Zur_Hilfe"
.Style = msoButtonCaption
.BeginGroup = True
End With
Set CBP = CB.Controls.Add(Type:=msoControlPopup, Temporary:=True)
With CBP
.Caption = "Ich bin ein Popup"
.BeginGroup = True
End With
Set CBB = CBP.Controls.Add(Type:=msoControlButton)
With CBB
.Caption = "Knopf 1"
.OnAction = ""
.Style = msoButtonCaption
.BeginGroup = True
End With
Set CBB = CBP.Controls.Add(Type:=msoControlButton)
With CBB
.Caption = "Knopf 2"
.OnAction = ""
.Style = msoButtonCaption
.BeginGroup = True
End With
Set CBB = CBP.Controls.Add(Type:=msoControlButton)
With CBB
.Caption = "Knopf 3"
.OnAction = ""
.Style = msoButtonCaption
.BeginGroup = True
End With
CB.Visible = True
End Sub
Sub Symbolleiste_entfernen()
On Error Resume Next
CommandBars(Symbolleistenname).Delete
End Sub

Gruß Bert

Beliebteste Forumthreads (12 Monate)

Code bitte anschauen, hab eine Frage dazu

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread