add-in?

[Steph]

Hi. I was trying to create a file that I could send out to a department
that would be a sort of add-in (probably a bad choice of words). Basically,
I want the receiver to double click on the file, and have it automatically
create a new menu button, and under that a custom menu item, and finally
assign a macro to the new menu item. I can do it manually, but can it be
done in code in such a way the file auto-installs the menu item? Thanks!

 

[Frank Kabel]

Hi
put this code in the workbook_open event of your addin file. This way
the code gets started then installing the addin

 

[Steph]

Hi Frank. Thanks for the response....but what code?

 

[Frank Kabel]

Hi
I thought you already have some code for adding menu items, etc.

 

[Dave Peterson]

I really like the way John Walkenbach does it in his MenuMaker workbook.

http://j-walk.com/ss/excel/tips/tip53.htm

 

[Myrna Larson]

I would also suggest that when closing the add-in, it removes the changes made
to the menu. Otherwise, you'll get multiple buttons/menu items, no?

 

[Guest]

Steph,

Put this in the "Thisworkbook" module:

Option Explicit

Private Sub Workbook_Open()
Dim objItem As Object
Set objItem = Application.CommandBars.ActiveMenuBar
Set objItem = objItem.Controls.Add(Type:=msoControlPopup, Temporary:=True)
objItem.Caption = "Make Report"

Set objItem = objItem.Controls.Add(Type:=msoControlButton)
objItem.Caption = "The Steph Report"
objItem.OnAction = "procMakeReport"
End Sub

*****************************

Put this in Module1

Option Explicit

Sub procMakeReport()
MsgBox "Create the report...", vbInformation, "The Steph Report"
End Sub

This will get you going.

Dale Preuss

 

[Steph]

Thanks everyone

I really like the way John Walkenbach does it in his MenuMaker workbook.

http://j-walk.com/ss/excel/tips/tip53.htm