CommandBar mit VBA

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

Never_Born

Gast
Salü zusammen

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

Danke im Voraus
Never_Born
 
#2
R

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
 
#3
N

Never_Born

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


Gruss
Never_Born
 
Thema:

CommandBar mit VBA

CommandBar mit VBA - Ähnliche Themen

  • VBA-Script shell .. .CopyHere wird von Defender blockiert

    VBA-Script shell .. .CopyHere wird von Defender blockiert: Hallo, Win10 Pro 64Bit, 1803, Office 2016 Seit einigen Wochen wird bei aktivem Defender (Viren- & Bedrohungsschutz - Echtzeitschutz EIN) das...
  • VBA-Script shell .. .CopyHere wird von Defender blockiert

    VBA-Script shell .. .CopyHere wird von Defender blockiert: Hallo, Win10 Pro 64Bit, 1803, Office 2016 Seit einigen Wochen wird bei aktivem Defender (Viren- & Bedrohungsschutz - Echtzeitschutz EIN) das...
  • PowerPoint Folien werden beim Öffnen der Präsentation mit VBA aus Excel heraus automatisch (ungewoll

    PowerPoint Folien werden beim Öffnen der Präsentation mit VBA aus Excel heraus automatisch (ungewoll: Hallo, auf einer virtuellen Maschine mit Windows 10 wird jede Nacht ein VBA-Skript in Excel ausgeführt, doch seit kurzem werden beim Öffnen der...
  • VBA UserForm in Outlook Task Formular

    VBA UserForm in Outlook Task Formular: Hallo, Wie oben beschrieben, versuche ich seit längerem nun einem ComandButton in Outlook Task einen AssignTo befehl zuzuordnen. Ich konnte...
  • Microsoft Defender unter Windows 10 entfernt VBA-Module in Excel, Falschinterpreation "TrojanDowload

    Microsoft Defender unter Windows 10 entfernt VBA-Module in Excel, Falschinterpreation "TrojanDowload: Microsoft Defender unter Windows 10 entfernt VBA-Module in Excel, Falschinterpreation "TrojanDowload Hallo zusammen Wir haben in letzter Zeit...
  • Ähnliche Themen

    Oben