Gruppierungssymbol in Symbolleiste per VBA

Forumthread: Gruppierungssymbol in Symbolleiste per VBA

31.07.2003 13:55:14

steph@n

Hallo,
ich erzeuge in VBA automatisch eine Symbolleiste bei Dateistart. Auf der Symbolleiste sind mehrere Schaltflächen. Ich möchte vor jeder neuen Schaltfläche die Gruppierung (also den senkrechten Strich) setzen. Den Befehl zeichnet Excel aber nicht auf. Kann man diesen Befehl per VBA nicht aufrufen? Falls doch, könnte mir bitte jemand nen Tipp geben, wie der lauten müsste?
Vielen Dank!
Gruß Stephan

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Gruppierungssymbol in Symbolleiste per VBA

31.07.2003 14:08:42

Nepumuk
AW: Gruppierungssymbol in Symbolleiste per VBA

31.07.2003 14:19:14

steph@n

AW: Gruppierungssymbol in Symbolleiste per VBA

31.07.2003 14:08:42

Nepumuk

Hallo Stephan,
Beispiel:


Option Explicit
Option Base 1
Option Private Module
Public Sub Menü()
Dim MenüLeiste As CommandBar
Dim neuesMenü As CommandBarControl, neuerEintrag As CommandBarControl
On Error Resume Next
Do
Application.CommandBars("Worksheet Menu Bar").Controls("Berechnen").Delete
Loop Until Err.Number <> 0
On Error GoTo 0
Set MenüLeiste = CommandBars.ActiveMenuBar
Set neuesMenü = MenüLeiste.Controls.Add(Type:=msoControlPopup, Temporary:=True)
neuesMenü.Caption = "&Berechnen"
Set neuerEintrag = neuesMenü.Controls.Add(Type:=msoControlButton, ID:=283, Temporary:=True)
neuerEintrag.Caption = "&Berechnen"
neuerEintrag.OnAction = "berechnen"
Set neuerEintrag = neuesMenü.Controls.Add(Type:=msoControlButton, ID:=488, Temporary:=True)
neuerEintrag.Caption = "&Anleitung1"
neuerEintrag.OnAction = "Anleitung1"
neuerEintrag.BeginGroup = True
Set neuerEintrag = neuesMenü.Controls.Add(Type:=msoControlButton, ID:=488, Temporary:=True)
neuerEintrag.Caption = "&Anleitung2"
neuerEintrag.OnAction = "Anleitung2"
neuerEintrag.BeginGroup = True
Set neuerEintrag = neuesMenü.Controls.Add(Type:=msoControlButton, ID:=488, Temporary:=True)
neuerEintrag.Caption = "&Anleitung3"
neuerEintrag.OnAction = "Anleitung3"
neuerEintrag.BeginGroup = True
Set MenüLeiste = Nothing
Set neuesMenü = Nothing
Set neuerEintrag = Nothing
End Sub

Code eingefügt mit: Excel Code Jeanie
Der Befehl lautet: .BeginGroup = True
Gruß
Nepumuk

AW: Gruppierungssymbol in Symbolleiste per VBA

31.07.2003 14:19:14

steph@n

Vielen Dank Nepumuk!
Gruß Stephan

Beliebteste Forumthreads (12 Monate)

Gruppierungssymbol in Symbolleiste per VBA

Forumthread: Gruppierungssymbol in Symbolleiste per VBA

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

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread