Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Eigene Symbolleiste und Menü hinzufügen
16.11.2022 10:08:16 Thommy7571
NotSolved
16.11.2022 10:43:24 Mase
NotSolved
16.11.2022 11:19:37 Gast43048
NotSolved
16.11.2022 11:24:18 Mase
NotSolved
16.11.2022 12:44:48 Gast32910
NotSolved
16.11.2022 13:34:08 Mase
NotSolved
17.11.2022 10:55:01 Gast51941
NotSolved
21.11.2022 17:15:11 Gast998
NotSolved
22.11.2022 08:03:27 Mase
NotSolved

Ansicht des Beitrags:
Von:
Thommy7571
Datum:
16.11.2022 10:08:16
Views:
159
Rating: Antwort:
  Ja
Thema:
VBA Eigene Symbolleiste und Menü hinzufügen

Hallo,

ich möchte unter Windows 10 bei Excel2019 eine eigene Symbolleiste mit eigenen Menüpunkten und Untermenüs hinzufügen

mittels VBA. Ich habe dazu über  "Optionen" --> "Trust Center", --> Einstellungen für das Trust Center unter Makroeinstellungen

"Alle Makros aktivieren" ausgewählt, Zugriff auf das VBA ProjektObjektmodell gegeben

und folgenden Code verwendet:

<Code>

Sub AddNeueSymbolleiste()
   Dim oCmdBar As CommandBar
   Dim oPopUp As CommandBarPopup
   Dim oBtn As CommandBarButton
   'Call DeleteNewMenueBar ' für den Fall dass es vorher nicht komplett geklappt hat einschalten
   Set oCmdBar = Application.CommandBars.Add(Name:="Kapitel2", _
      Position:=msoBarTop, MenuBar:=True, temporary:=False)
         Set oCmdBar = Application.CommandBars.Add(Name:="Kapitel2", _
      Position:=msoBarTop, MenuBar:=True, temporary:=False)
        Set oPopUp = oCmdBar.Controls.Add(Type:=msoControlPopup)
   oPopUp.Caption = "1Krefte"
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Formular_erstellen"
      .Style = msoButtonCaption
   End With
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Testdaten"
      .Style = msoButtonCaption
   End With
    Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Auswertung"
      .Style = msoButtonCaption
   End With
   
   Set oPopUp = oCmdBar.Controls.Add(Type:=msoControlPopup)
   oPopUp.Caption = "Tragwerke"
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Formular_erstellen"
      .Style = msoButtonCaption
   End With
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Resultierende"
      .Style = msoButtonCaption
   End With
    Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Bestimmung_der_Stabkraefte"
      .Style = msoButtonCaption
   End With
   
      Set oPopUp = oCmdBar.Controls.Add(Type:=msoControlPopup)
   oPopUp.Caption = "Biegetraeger"
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Starteingaben"
      .Style = msoButtonCaption
   End With
   Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Diagramme"
      .Style = msoButtonCaption
   End With
    Set oBtn = oPopUp.Controls.Add
   With oBtn
      .Caption = "Loesche_Diagramme"
      .Style = msoButtonCaption
   End With
     CommandBars("Kapitel2").Visible = True
     Application.CommandBars("Kapitel2").Enabled = True
   oCmdBar.Visible = True
End Sub

</Code>

Leider passiert überhaupt nichts. Es wird keine neue Symbolleiste mit Menü angezeigt, obwohl der Code fehlerfrei durchläuft.
Hat jemand eine Idee woran das liegt? Wenn ich ihn ausgeführt habe, ergibt sich allerdings eine Fehlermeldung, beim Versuch eine Symbolleiste mit dem gleichen Namen hinzuzufügen.

Wenn ich versuche das Ganze manuell zu machen unter "Menübandanpassung", kann ich zwar die Symbolleiste mit drei Gruppen erstellen,

aber zum einen keine Untergruppen bilden, zum anderen nur bekannte Befehle hinzufügen, keine eigenen. Das hilft mir also nicht.

Danke

Thommy7571

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA Eigene Symbolleiste und Menü hinzufügen
16.11.2022 10:08:16 Thommy7571
NotSolved
16.11.2022 10:43:24 Mase
NotSolved
16.11.2022 11:19:37 Gast43048
NotSolved
16.11.2022 11:24:18 Mase
NotSolved
16.11.2022 12:44:48 Gast32910
NotSolved
16.11.2022 13:34:08 Mase
NotSolved
17.11.2022 10:55:01 Gast51941
NotSolved
21.11.2022 17:15:11 Gast998
NotSolved
22.11.2022 08:03:27 Mase
NotSolved