Right click menu vba

[decadence]

Hi, Is there a code to add a title to right click menu and/or submenu without the use of xml?

 

[decadence]

Re: Help with Right click menu vba

This is a snippet of my code.

Sub InsertHeadersClick()

    Dim ContextMenu As CommandBar
    Dim MySubMenu As CommandBarControl
    Call KillInsertHeaderClick
    Set ContextMenu = Application.CommandBars("Cell")
    Set MySubMenu = ContextMenu.Controls.Add(Type:=msoControlPopup, Before:=1, Temporary:=True) '<----- This is where I am trying to add a faceID/ImageMso

        With MySubMenu
             .Caption = "Headers"
             .Tag = "My_Cell_Control_Tag"
             
        With .Controls.Add(Type:=msoControlButton)
             .OnAction = "Angle"
             .Caption = "Angle"
             .FaceId = 80
        End With

 

[Logit]

Re: Help with Right click menu vba

.
Your original posting asked for a "title" to be added to the right click menu. If you are wanting "to add a faceID/ImageMso" look at the following :

Option Explicit




Sub AddToCellMenu()
    Dim ContextMenu As CommandBar
    Dim MySubMenu As CommandBarControl

    ' Set ContextMenu to the Cell context menu.
    Set ContextMenu = Application.CommandBars("Cell")


    ' Add one built-in button(Save = 3) to the Cell context menu.
    ContextMenu.Controls.Add Type:=msoControlButton, ID:=3, Before:=1
    ContextMenu.Controls.Add Type:=msoControlButton, ID:=370, Before:=1
    
    ' Add one custom button to the Cell context menu.
    With ContextMenu.Controls.Add(Type:=msoControlButton, Before:=1)
        .OnAction = "'" & ThisWorkbook.Name & "'!" & "ToggleCaseMacro"
        .FaceId = 59
        .Caption = "Toggle Case Upper/Lower/Proper"
        .Tag = "My_Cell_Control_Tag"
    End With
End Sub


Sub ClearMenu()
    On Error Resume Next
        With Application
            .CommandBars("Cell").Controls("Paste Values").Delete
            .CommandBars("Cell").Controls("Save").Delete
            .CommandBars("Cell").Controls("Toggle Case Upper/Lower/Proper").Delete
        End With
    On Error GoTo 0
End Sub

Resource: https://stackoverflow.com/questions...s-value-icon-to-right-click-menu-cell-context

Workbook download : https://www.amazon.com/clouddrive/share/WFssx77afvzgOCjldlPoNGQ7zdKPhOOq3dvXsRP4RpS

 

[decadence]

Re: Help with Right click menu vba

Ah my Apologies, I should of taken that out before posting as this was a note to my self so I can add an ID to the right click menu. I am still trying to add a title bar in VBA like a menu separator with a title in xml.

xml Example

menuSeparator id="MyMenu" title="Add My Data"