M
Mike
Thanks in advance for any help.
I have a macro that I use a lot that I want to turn into
an add-in. I have saved it as an XLA file and selected it
through the Tools -> Add-Ins Menu. However the menu
button for my add-in does not appear after installing the
add-in.
I created the menu button with the following code at the
beginning of my macro:
Dim HelpMenu As CommandBarControl
Dim NewMenu As CommandBarPopup
Dim MenuItem As CommandBarControl
Dim Submenuitem As CommandBarButton
On Error Resume Next
CommandBars(1).Controls("AP").Delete
On Error Resume Next
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 = "&AP"
Set MenuItem = NewMenu.Controls.Add(Type:=msoControlButton)
With MenuItem
.Caption = "F&oundations"
.OnAction = "ShowDialog"
End With
The rest of my code follows.
Does anyone know why this button does not appear when I
install the add-in?
Thanks again for any help. I am using Excel 2000.
Mike
I have a macro that I use a lot that I want to turn into
an add-in. I have saved it as an XLA file and selected it
through the Tools -> Add-Ins Menu. However the menu
button for my add-in does not appear after installing the
add-in.
I created the menu button with the following code at the
beginning of my macro:
Dim HelpMenu As CommandBarControl
Dim NewMenu As CommandBarPopup
Dim MenuItem As CommandBarControl
Dim Submenuitem As CommandBarButton
On Error Resume Next
CommandBars(1).Controls("AP").Delete
On Error Resume Next
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 = "&AP"
Set MenuItem = NewMenu.Controls.Add(Type:=msoControlButton)
With MenuItem
.Caption = "F&oundations"
.OnAction = "ShowDialog"
End With
The rest of my code follows.
Does anyone know why this button does not appear when I
install the add-in?
Thanks again for any help. I am using Excel 2000.
Mike