CommandBar mit VBA

Diskutiere CommandBar mit VBA im Programmierung Forum im Bereich Software Forum; Salü zusammen Wie kann ich eine eigene CommandBar (oder Symbolleiste) mit VBA erstellen? Danke im Voraus Never_Born
N

Never_Born

Gast
Salü zusammen

Wie kann ich eine eigene CommandBar (oder Symbolleiste) mit VBA erstellen?

Danke im Voraus
Never_Born
 

Rotzlöffel

Dabei seit
06.04.2002
Beiträge
20
Das hab ich zum Thema gefunden... ich hoffe du verstehst so viel Englisch :-))

Frage:

I want to create a custom menu with submenus. I tried using
View|Toobars|Customize, but couldn't get the nested menus. All I could do
was each command as single item on the same menu. Is there a way to do it in
VBA? Thanks.

***********************************************
Antwort:
***********************************************


You will probably need to set a reference to the Office xx Object Library.
Here is some code to get you up and running (for A97):

Sub sCreateMenu()
Dim cBar as CommandBar
Dim cPopup1 as CommandBarPopup, cPopup2 as CommandBarPopup
Dim cButton as CommandBarControl
Set
cBar=CommandBars.Add(Name:="TestMenu",Position:=msoBarTop,MenuBar:=True,
Temporary:=True)
Set cPopup1=cBar.Controls.Add(Type:=msoControlPopup)
With cPopup1
.Caption="Main"
.BeginGroup=True
End With
Set cPopup2=cPopup1.Controls.Add(Type:=msoControlPopup)
With cPopup2
.Caption="Sub-Menu"
End With
Set cButton=cPopup2.Controls.Add(Type:=msoControlButton)
With cButton
.Caption="Press me!!"
.OnAction="=MsgBox(""I was pressed"")"
End With
cBar.Visible=True
 
N

Never_Born

Gast
Danke, sieht nicht schlecht aus. Ich werd das ausprobieren sobald mein Outlook den VBA-Code wieder ausführt
confused.gif


Gruss
Never_Born
 
Thema:

CommandBar mit VBA

CommandBar mit VBA - Ähnliche Themen

Outlook 2019: Navigationsoptionen per VBA einstellen: Hallo, worum es geht: Ich würde gerne in Outlook per VBA die Navigationsoption von z. B. "E-Mail" auf "Ordner" umstellen. Dh. was man im Menü...
USB-Anschluss geht nicht nach Neustart Win 10: Hallo, seit einger Zeit ist mein USB-Anschluss, an dem ein USB-Seriell-Wandler hängt, nach einem Neustart nicht ansprechbar. Sowohl...
Wie kann man in Webmail e-mails als *.eml-Datei abspeichern: In Windows-Live-Mail z.B. kann ich e-mails in der "Symbolleiste für Schnellzugriff" als Datei speichern. Wie geht das bitte in Webmail? Geht das...
Makros zum Versenden von Email Vorlagen: Hallo miteinander Ich muss gewisse Emails immer und immer wieder versenden und habe mir dafür Email-Vorlagen erstellt. Damit ich die Vorlage...
Drucker Problem nach Update - Hilfsupdate hilft nicht: Hi Ho, am 09.08.20 wurde das "2020-07 Kumulatives Update für .NET Framework 3.5 und 4.6 für Windows 10 Version 2004 für x64 (KB4565627)"...
Oben