Nyt menupunkt med flere underpunkter

Yderligere menuer (overordnede):

' 2det menupunkt
    Set MenuItem = NewMenu.Controls.Add(Type:=msoControlPopup)
        With MenuItem
            .Caption = "&menu2..."
            .BeginGroup = True
        End With


Du skulle kunne indsætte undermenuer på denne måde:

' 1te undermenu til 2det menupunkt
    Set Submenuitem = MenuItem.Controls.Add(Type:=msoControlButton)
        With Submenuitem
            .Caption = "&submenu1"
            .FaceId = 420
            .OnAction = "makronavn"
        End With

'2det undermenu til 2det menupunkt
    Set Submenuitem = MenuItem.Controls.Add(Type:=msoControlButton)
        With Submenuitem
            .Caption = "&submenu2"
            .FaceId = 422
            .OnAction = "makronavn"
        End With

Det er fra noget jeg tidligere har rodet med så du skal self. tilpasse det, men funktionaliteten burde være der.

Husk dim'erne:

Dim NewMenu As CommandBarPopup
Dim MenuItem As CommandBarControl
Dim Submenuitem As CommandBarButton

Her er en fuld version:

Sub CreateMenu2()
Dim HelpMenu As CommandBarControl
Dim NewMenu As CommandBarPopup
Dim MenuItem As CommandBarControl
Dim Submenuitem As CommandBarButton

' Slet evt. eksisterende menu
    Call DeleteMenu2
' Find Hjælp/Help Menu
    Set HelpMenu = CommandBars(1).FindControl(Id:=30010)
        If HelpMenu Is Nothing Then
' Hvis ingen Hjælp Menu, så placer ny sidst
            Set NewMenu = CommandBars(1).Controls.Add(Type:=msoControlPopup, temporary:=True)
        Else
' Placér nyt menu før Hjælp
            Set NewMenu = CommandBars(1).Controls.Add(Type:=msoControlPopup, Before:=HelpMenu.Index, temporary:=True)
        End If
' Overskrift på ny menu
    NewMenu.Caption = "&Private"

' 1te menupunkt
    Set MenuItem = NewMenu.Controls.Add(Type:=msoControlButton)
        With MenuItem
            .Caption = "menu1-1"
            .FaceId = 162
            .OnAction = "makronavn"
        End With

'MENU-GRUPPE 2 START
' 2det menupunkt
    Set MenuItem = NewMenu.Controls.Add(Type:=msoControlPopup)
        With MenuItem
            .Caption = "menu2..."
            .BeginGroup = True
        End With

' 1te undermenu til 2det menupunkt
    Set Submenuitem = MenuItem.Controls.Add(Type:=msoControlButton)
        With Submenuitem
            .Caption = "submenu2-1"
            .FaceId = 420
            .OnAction = "makronavn"
        End With

'2det undermenu til 2det menupunkt
    Set Submenuitem = MenuItem.Controls.Add(Type:=msoControlButton)
        With Submenuitem
            .Caption = "submenu2-2"
            .FaceId = 422
            .OnAction = "makronavn"
        End With

'3die undermenu til 2det menupunkt
    Set Submenuitem = MenuItem.Controls.Add(Type:=msoControlButton)
        With Submenuitem
            .Caption = "submenu2-3"
            .FaceId = 422
            .OnAction = "makronavn"
        End With
'MENU-GRUPPE 2 SLUT


'MENU-GRUPPE 3 START
' 3die menupunkt
    Set MenuItem = NewMenu.Controls.Add(Type:=msoControlPopup)
        With MenuItem
            .Caption = "menu3..."
            .BeginGroup = True
        End With

' 1te undermenu til 3die menupunkt
    Set Submenuitem = MenuItem.Controls.Add(Type:=msoControlButton)
        With Submenuitem
            .Caption = "submenu3-1"
            .FaceId = 420
            .OnAction = "makronavn"
        End With

'2det undermenu til 3die menupunkt
    Set Submenuitem = MenuItem.Controls.Add(Type:=msoControlButton)
        With Submenuitem
            .Caption = "submenu3-2"
            .FaceId = 422
            .OnAction = "makronavn"
        End With

'3die undermenu til 3die menupunkt
    Set Submenuitem = MenuItem.Controls.Add(Type:=msoControlButton)
        With Submenuitem
            .Caption = "submenu3-3"
            .FaceId = 422
            .OnAction = "makronavn"
        End With

'4de undermenu til 3die menupunkt
    Set Submenuitem = MenuItem.Controls.Add(Type:=msoControlButton)
        With Submenuitem
            .Caption = "submenu3-4"
            .FaceId = 422
            .OnAction = "makronavn"
        End With

'5te undermenu til 3die menupunkt
    Set Submenuitem = MenuItem.Controls.Add(Type:=msoControlButton)
        With Submenuitem
            .Caption = "submenu3-5"
            .FaceId = 422
            .OnAction = "makronavn"
        End With

'6te undermenu til 3die menupunkt
    Set Submenuitem = MenuItem.Controls.Add(Type:=msoControlButton)
        With Submenuitem
            .Caption = "submenu3-6"
            .FaceId = 422
            .OnAction = "makronavn"
        End With

'MENU-GRUPPE 3 SLUT

' 4de menupunkt
    Set MenuItem = NewMenu.Controls.Add(Type:=msoControlButton)
        With MenuItem
            .Caption = "menu4"
            .FaceId = 590
            .OnAction = "makronavn"
        End With

End Sub

Sub DeleteMenu2()
    On Error Resume Next
    CommandBars(1).Controls("Private").Delete
End Sub

Hej Brynil

Jeg har prøvet din makro, men den giver mig en "run-time error '91' - Object variable or with block not set"

Ved debug er der intet linienr.

Jeg har indsat makroen i "ThisWorkBook".

Hej Brynil

Jeg har fået den til at virke. Jeg satte den i et module - hvorefter alt fungerer perfekt.

Så pointene er dine hvis du lige kommer med et svar!!

Nåh ja. For at menupunktet kun er til rådighed i den specifikke workbook, så tilpas koden i ThisWorkbook så det ser nogenlunde således ud:

Private Sub Workbook_Open()
    CreateMenu2
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
  On Error Resume Next
  Application.CommandBars(1).Controls("Private").Delete
End Sub

Hold tungen lige i munden når du anvender index'es og menunavne så du ikke kommer til at slette den forkerte.

Lidt mere korrekt. Menupunktet vil være synligt for alle workbooks, så længe du har den workbook åben som menukoden køres fra.

Takker mange gange for hjælpen.

Jeg vil prøve mig lidt frem, stille og roligt, for at se hvordan jeg kan få det til at fungere optimalt.

Go' idé. Tak for point! :))