Add an item for MACROS to the Excel menu bar

Friends,

Please, is it possible...?

Here we have the usual Excel menu bar:

File / Edit / View / Insert / Format / Tools / Data / Window / Help

When we press ALT+F8, a small window appears with all MACROS available for us to run. Is it possible to add an item to the menu bar which shows the same contents that are shown when we press ALT+F8?

The menu bar should be something like this:

File / Edit / View / Insert / Format / Tools / Data / Window / Help / Macros

Then when we press the item "Macros", it shows all macros available (just like the other itens from the menu bar) and when we click one of those macros, it is run!

(If we open a file which doesn't contain any macros, the item Macros can be hidden... Or not! It's up to you!)

Anybody knows how to do that?

Thanks for your attention, guys.

Hugs.

Bruno

swatsp0p,

Sorry, I guess I didn't make myself clear. I'll try to explain it better...

Actually, I don't want to open/show the Macros Dialog Box. I just want all availables macros "inside" the new menu.

For example...

Inside the menu "File" we have: New / Open / Close / Save / Save As / etc...
Inside the menu "Edit" we have: Can't Undo / Can't Repeat / Cut / Copy / Paste / etc...
And so on...

So, I'd like to know if it's possible to add something like that...

Inside the new option "Macros" we would have: Macro1 / Macro2 / Macro3 / Macro4 / etc... (all macros available)

Then, if we want to run Macro3, for example, we click on "Macros" and then click on "Macro3" (and Excel runs Macro3 right away).

The solutions posted here was a button (a shortcut) to call/show the Macros Dialog Box, but this is not what I really want. Sorry if I didn't express myself correctly.

So, is it possible to do that (show all available macros inside the menu)? If not, that's OK. I'll use what you taught me first, no problem.

Anyway, thanks you for the attention. I really appreciate it.

Hugs.

Bruno

Good evening Brunces

What you need to do is open a macro similar to the one below - I've provided you with the outline, you'll have to flesh it out and expand on it. This needs to be opened from an automatic routine within the files that hold the macros, using event procedures (Sub Workbook_Open()) or naming the menu generating macro Sub auto_open().

Sub auto_open()
Dim HelpMenu As CommandBarControl
Dim NewMenu As CommandBarPopup
Dim MenuItem As CommandBarControl
Dim Submenuitem As CommandBarButton
Set HelpMenu = CommandBars(1).FindControl(ID:=30010)
If HelpMenu Is Nothing Then
Set NewMenu = CommandBars(1).Controls.Add(Type:=msoControlPopup, temporary:=True)
Else
Set NewMenu = CommandBars(1).Controls.Add(Type:=msoControlPopup, Before:=HelpMenu.Index, temporary:=True)
End If
NewMenu.Caption = "MyMacro"

Set MenuItem = NewMenu.Controls.Add(Type:=msoControlButton)
With MenuItem
.Caption = "Run Macro 1"
.OnAction = "Macro1"
End With

Set MenuItem = NewMenu.Controls.Add(Type:=msoControlButton)
With MenuItem
.Caption = "Run Macro 2"
.OnAction = "Macro2"
End With

End Sub

You don't need the carriage return breaks I've put in, that's just to help you get to grips with the three seperate "chunks" of code.

HTH. Good luck!

DominicB

DominicB,

Hi, I'm gonna check your code now. As soon as I test it, I post an answer to you, OK?

Thank you very much for your attention, buddy.

Hugs.

Bruno

Hi Bruno,

Did you ever get an answer to your question? I have a few Macros in one workbook that I would like to have a Menu selection for as well.

Thx,
Steve