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?

 

[Logit]

Re: Help with Right click menu vba

.
https://www.rondebruin.nl/win/s6/win001.htm

https://www.extendoffice.com/documents/excel/4375-excel-add-button-macro-to-right-click-menu.html

http://www.ozgrid.com/VBA/right-click.htm

 

[decadence]

Re: Help with Right click menu vba

Hi Logit, I have already created a right click menu, but this still doesn't answer my question of a title bar which names the menu/submenu.

 

[jkpieterse]

Re: Help with Right click menu vba

You could add a button to it with no macro assigned to it?

 

[decadence]

Re: Help with Right click menu vba

Hi jkpieterse, I am unable to do that as it's a context menu.

 

[jkpieterse]

Re: Help with Right click menu vba

Depends on which context menu it is. The cell right-click menu you can add buttons to and to custom right-click menus as well.

 

[decadence]

Re: Help with Right click menu vba

It's a Right click menu which opens up to the buttons. I have titles for the menus in my add-in which is in xml code. But I would like to have titles for the right click button menu which is in VBA code.

 

[jkpieterse]

Re: Help with Right click menu vba

Please show us the relevant piece of VBA code.

 

[Logit]

Re: Help with Right click menu vba

.
Paste this into the ThisWorkbook module :

Option Explicit


Private Sub Workbook_Open()
MsgBox "You can right-click any worksheet cell" & vbCrLf & _
"to see and / or run your workbook's macros.", 64, "A tip:"
Run "RightClickReset"
Run "MakeMenu"
End Sub


Private Sub Workbook_Activate()
Run "RightClickReset"
Run "MakeMenu"
End Sub


Private Sub Workbook_Deactivate()
Run "RightClickReset"
End Sub


Private Sub Workbook_BeforeClose(Cancel As Boolean)
Run "RightClickReset"
ThisWorkbook.Save
End Sub

Paste this into a routine module :

Option Explicit


Private Sub RightClickReset()
On Error Resume Next
CommandBars("Cell").Controls("MY ADD-ON MENU").Delete
Err.Clear
CommandBars("Cell").Reset
End Sub


Private Sub MakeMenu()
Run "RightClickReset"
Dim objCntr As CommandBarControl, objBtn As CommandBarButton
Dim strMacroName$
Set objCntr = _
    Application.CommandBars("Cell").Controls.Add(msoControlPopup, before:=1)
    objCntr.Caption = "MY ADD-ON MENU"
End Sub

NOTE: This will create a false Right Click menu button at the top of the right click menu selections. Change the title as desired.

I did a bunch of searching for adding just a title to the right click menu and have not found anything as yet.

 

[jkpieterse]

Re: Help with Right click menu vba

@Logit: Not sure why you are using

Run "SubroutineName"

rather than just

SubroutineName

For one, you risk situations where the former might call that subroutine if it happens to be present in another workbook that is open in Excel too. Also, it breaks any error handling setup in the calling routines.