View Single Post
  #11   Report Post  
Posted to microsoft.public.excel.programming
Ron de Bruin Ron de Bruin is offline
external usenet poster
 
Posts: 11,123
Default ADD-INS showing in Tools Menu

You can install your add-in with ToolsAdd-ins
Browse to the file
OK
You see it now in the list
Check it
OK

Every time you open Excel your add-in will load and you can use the menu
in Tools in every workbook.

--
Regards Ron de Bruin
http://www.rondebruin.nl


"VB Office Bruce" wrote in message
...
Ron de Bruin, YOU ARE AN MVP!!!!! Does this mean that before any xls file
can use this Maco, once the excel application is loaded with this ADD-IN? In
other words, it will always show up in the menu? Thanks again!!!!

"Ron de Bruin" wrote:

You can run the macro in the open and close event in the thisworkbook module of the add-in

Private Sub Workbook_BeforeClose(Cancel As Boolean)
MenuBar_Item_Item_Delete
End Sub

Private Sub Workbook_Open()
MenuBar_Item_Item
End Sub





--
Regards Ron de Bruin
http://www.rondebruin.nl


"VB Office Bruce" wrote in message
...
Hi Ron de Bruin,

I am using Excel 2000 on one computer and Excel 2003 on another. Code
worked fine on 2003- will it work on 2000 version. Understood that direction
and modified it to run the Macro I created. Again, the code worked
PERFECTLY!!!!!

If I turn it into an Add-In, do I put the code in ThisWorkbook and then
follow the procedure or can I leave it as a module?

Thanks a lot!

"Ron de Bruin" wrote:

Try to run this code first to see if it is working

Sub MenuBar_Item_Item()
Dim MenuItem As CommandBarControl
MenuBar_Item_Item_Delete

Set MenuItem = Application.CommandBars.FindControl(, 30007) 'Tools menu
If MenuItem Is Nothing Then Exit Sub
With MenuItem.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Ron de Bruin"
.OnAction = ThisWorkbook.Name & "!TestMacro"
.BeginGroup = True
.Tag = "MenuItemTag"
End With
Set MenuItem = Nothing
End Sub

Sub MenuBar_Item_Item_Delete()
Dim MenuItem As CommandBarControl
Set MenuItem = Application.CommandBars.FindControl(Tag:="MenuItem Tag")
If Not MenuItem Is Nothing Then
MenuItem.Delete
End If
Set MenuItem = Nothing
End Sub



--
Regards Ron de Bruin
http://www.rondebruin.nl


"Ron de Bruin" wrote in message ...
Hi VB Office Bruce

Do you use Excel 2003 ?

--
Regards Ron de Bruin
http://www.rondebruin.nl



"VB Office Bruce" wrote in message
...
Yes. I saved it as an .xla following the standard cook book procedures. It
seems that creating a custom toolbar may be an answer and saving that as an
xla. Where the commands in the toolbar execute the macros. I've read
several discussions and will experiement. Don't know if that works. Thanks.


"davesexcel" wrote:


Did you save it as an add-in?


--
davesexcel
------------------------------------------------------------------------
davesexcel's Profile: http://www.excelforum.com/member.php...o&userid=31708
View this thread: http://www.excelforum.com/showthread...hreadid=523986