Hello,
I have created an Add-In.
How do I add "Execute Macro" (that executes the Macro) to the Cell Context Menu in an Add-In.
To clarify, when users load my Add-In, I would like for them to be able to right-click and access my "Execute Macro" choice similar to how one would select "Copy" or "Cut".
Thank You,
Tyler B. Berger
You may use:
You may call this code from Workbook_Open event of your add-in.
Sub addButton() Dim cbr As CommandBar Dim ctl As CommandBarControl Set cbr = Application.CommandBars("Cell") Set ctl = cbr.Controls.Add(msoControlButton, , , , True) With ctl .Caption = "Execute macro" .OnAction = "'" & ThisWorkbook.Name & "'!Macro_name" .Style = msoButtonCaption End With End Sub
- Please remember to mark threads Solved with Thread Tools link at top of page.
- Please use code tags when posting code: [code]Place your code here[/code]
- Please read Forum Rules
I have:
AddToShortcut is called on Workbook Open and DeleteFromShortcut is called on Workbook Close. Works great in an .XLSM. Does not work when I convert to Add-In.Sub AddToShortCut() Dim Bar As CommandBar Dim NewControl As CommandBarButton DeleteFromShortcut Set Bar = Application.CommandBars("Cell") Set NewControl = Bar.Controls.Add _ (Type:=msoControlButton, ID:=1, _ temporary:=True) With NewControl .Caption = "&Send Incoming Inventory to Business Operations" .OnAction = "CreateListofIncomingInventory2" .Style = msoButtonIconAndCaption End With End Sub Sub DeleteFromShortcut() On Error Resume Next Application.CommandBars("Cell").Controls _ ("&Send Incoming Inventory to Business Operations").Delete End Sub
May you zip and post add-in please? Do you have errors or simply no new control?
Izandol,
Too much personal information in Workbook.
No error, simply no new control.
Thanks for your help Izandol!
It is fixed?
It seems to be an issue local to my machine, sometimes it works, sometimes it doesn't.
It is perhaps issue with worksheet view. Excel has two Cell context menus - one for Normal view and Page Layout and one for Page break preview.
Last edited by Izandol; 02-28-2014 at 04:37 AM.
How do I add to all three?
Thank You,
EnigmaMatter
By the way, I keep trying to give you Rep, but it won't let me yet.
Do not worry about rep - I wish only to repay some of what I have gained from this forum!
Best way is to loop through commandbars collection until you find first Cell menu, add control, then add same control to commandbar with index 3 higher. You may also simply loop with counter until you have found 2 Cell menus. I think if you use CustomUI in 2010 it is easier.
Thanks! I hope to contribute one day too.
So the other cell context menus have indexes of 2 and 3?
There are only two - one has an index 3 more than the other. For example:
Sub bar() Dim cbr As CommandBar For Each cbr In Application.CommandBars Debug.Print cbr.Name If LCase$(cbr.Name) = "cell" Then With cbr.Controls.Add(msoControlButton) .Caption = "foo" .OnAction = "foobar" .Style = msoButtonCaption .Enabled = True .Visible = True End With With Application.CommandBars(cbr.Index + 3).Controls.Add(msoControlButton) .Caption = "foo" .OnAction = "foobar" .Style = msoButtonCaption .Enabled = True .Visible = True End With Exit For End If Next cbr End Sub
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
EnigmaMatter 
Register To Reply
Bookmarks