Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 11:09:53
for Schleife lässt leere Zeilen bei Abfrage mit Bedingung
18.04.2024 10:30:26
bedingte Formatierung lange Zahlen
18.04.2024 09:22:48
VBA Filter in intelligenter Tabelle funktioniert nicht
18.04.2024 08:54:52
automatisches übertragen von Daten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
288to292
288to292
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Gruppierungssymbol in Symbolleiste per VBA

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
Anzeige
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

Anzeige
AW: Gruppierungssymbol in Symbolleiste per VBA
31.07.2003 14:19:14
steph@n
Vielen Dank Nepumuk!
Gruß Stephan

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige