---

Hallo Leute,
ich habe mir eigene Menüs (*.mns) erstellt und möchte diese jetzt per VBA mit einem Befehl automatisch einrichten. Kann mir jemand helfen, ich kenne mich leider nicht mit VBA aus.

Manuell funktioniert das einwandfrei, da ich diese Menüs aber auch anderen Kollegen zur Verfügung stellen möchte sollte das mit einem Befehl funktionieren, da es sich um reine Anwender handelt.

Danke, CADmaha

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hoffe das hilft, ich habe das menü "Privat" genannt, einfach durch deines ersetzen

Code:

---

Public Sub PrivatMenu()
   
    Dim MenueName As String
   
    MenueName = "Privat"
   
    ' Untermenü laden, entspricht Acad-Befehl "menuload"
    Application.MenuGroups.Load MenueName, False

    MsgBox "Menü """ & MenueName & """ geladen", , "Menüeinstellung"
       
End Sub

---

roland

PS: die Zeile mit der MsgBox kannst du entfernen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Super, danke. Genau das habe ich gesucht.

Jetzt kannst Du mir sicher auch noch sagen wie man die geladene Menüleiste angezeigt bekommt. Manuell geht es über Extras | Anpassen | Menüs | Menüleiste -> einfügen.

Und wie kann ich mit einem Befehl alle gewünschten Menüs laden und anzeigen???

Ich habe leider keine Ahnung von VBA, aber Du hast bestimmt eine Lösung, oder?

Danke und Grüsse aus Hessen 

CADmaha

------------------
CADmaha - haack2001@web.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

möchtest du ein eigenes profil erstellen und pfade setzten?

roland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ich hab es jetzt ganz einfach gemacht.

Code:

---

'Lädt Menü "Privat"
'fügt Menüleisten "Menü1", "Menü2", ... ein
'Name der Menüleisten vollständig und korrekt eingeben --> "&" nicht vergessen
Public Sub PrivatMenu()
   
    Dim MenueName As String
    Dim PrivatMen As AcadMenuGroup
   
    MenueName = "Privat"
   
    ' Untermenü laden, entspricht Acad-Befehl "menuload"
    Application.MenuGroups.Load MenueName, False
   
    Set PrivatMen = Application.MenuGroups.Item(MenueName)
   
    ' Hinzufügen zu Menüleiste
    PrivatMen.Menus("Menü1").InsertInMenuBar (ThisDrawing.Application.MenuBar.Count - 1)
    PrivatMen.Menus("Menü2").InsertInMenuBar (ThisDrawing.Application.MenuBar.Count - 1)

    MsgBox "Menü """ & MenueName & """ geladen", , "Menüeinstellung"
       
End Sub

---

roland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP