VBA: combined custom-menu for multiple Add-Ins

[Cornerback]

Hi everyone,

I'm looking for a solution for the following problem. Any help would be appreciated <3

I have two Add-Ins, which both create an entry in a custom-menu on startup:


No 1:

Set MenuObject = Application.CommandBars(1). _
                    Controls.Add(Type:=msoControlPopup, _
                    Before:=10, _
                    Temporary:=True)
                MenuObject.Caption = "Auswertung"
                
Set MenuItem2 = MenuObject.Controls.Add(Type:=msoControlPopup)
               MenuItem2.Caption = "MCM"
               MenuItem2.BeginGroup = True
Set SubMenuItem2 = MenuItem2.Controls.Add(Type:=msoControlButton)
                SubMenuItem2.Caption = "Auswerten"
                SubMenuItem2.FaceId = 48
                SubMenuItem2.OnAction = "AuswahlForm"

No 2:

Set MenuObject = Application.CommandBars(1). _
                    Controls.Add(Type:=msoControlPopup, _
                    Before:=10, _
                    Temporary:=True)
                MenuObject.Caption = "Auswertung"
                
Set MenuItem1 = MenuObject.Controls.Add(Type:=msoControlPopup)
               MenuItem1.Caption = "EvoCS"
Set SubMenuItem1 = MenuItem1.Controls.Add(Type:=msoControlButton)
                SubMenuItem1.Caption = "SA-Admin"
                SubMenuItem1.FaceId = 53
                SubMenuItem1.OnAction = "DummyMacro"

Now the following is to be done:

• If both Add-Ins are installed, both MenuObject.Controls ("EvoCS" and "MCM") have to be sub-menus of "Auswertung"
• If one Add-In is uninstalled, the MenuObject of the Add-In is removed, while the other one isnt changed.
• If both are uninstalled, the custom-menu "Auswertung" should also be removed

In my current version, each Add-In created it's own "Auswertung"-custom-menu, but I did not yet manage to merge both menus. Any ideas?

Kind regards,

Thorben

 

[Andrew Poulsom]

Welcome to MrExcel.

To test if an Add-In is installed you can use its Installed property.

 

[Cornerback]

Hi and thanks.

I already used the Installed-property to check if they are installed. The problem is, that i have no idea how to merge the two menus (one created by each addon) into one menu containing submenus for both addons...

 

[RoryA]

It sounds as though you just need to alter the code in each one to:
1. Loop through the controls on Application.Commandbars(1) and test if the caption is "Auswertung" and then only add it if it's not already present
2. When closing test if there is more than one control on the Auswertung menu - if so, only remove the control the add-in created; if not, delete the Auswertung control itself.

 

[Cornerback]

Looping through seems to work now. however, if the first addin created the MenuObject, and the second addin does not create another one, how can i "access" the MenuObject created by the first addin? right now i get an error because there is no MenuObject für addon 2 :/