I would like to create a toolbar similarly to what is described below,
for inclusion in an add-in. However, instead of text on command
buttons,
I want to have custom icons. I can create the icons with the icon
editor.
But how can I link them to the button?

Many thanks,

Phil


-----------Bernie's message
follows--------------------------------------
Ron,

I haven't tried your suggestion yet. But this seems very confusing
and a lot of effort to do
what I have asked. I didn't have to go through all this when I placed
these items on the
Tools menu eight years ago, so I don't know why I have to now?

I'm clearly missing something important here, but I'm not sure what...

Bernie

On Wed, 30 Jul 2003 18:38:58 +0200, "Ron de Bruin"

wrote:
One way to place a item in the tools menu

Run the macros in this events in the Thisworkbook module for example

Private Sub Workbook_Activate()
MenuBar_Item_Item
End Sub

Private Sub Workbook_Deactivate()
MenuBar_Item_Item_Delete
End Sub


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

Sub TestMacro()
MsgBox "Hi"
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"bw" wrote in message news:1105_1059582525 @news.cableone.net...
I'm so confused!!!

Some history...

I have a workbook that I created maybe eight years ago, that has some simple macros
that are run ONLY from this workbook, and are accessed by clicking on Tools menu,
where the macros are listed at the bottom of the normal list. This macros (and the items
on the Tools menu) are ONLY available for this particular workbook.

I have tried to duplicate this action in two ways:
1. I have simply dragged an item from the toolbar customize box to the Tools menu, and
this works fine, but then it is present on any workbook I open from then on, and of
course, I only want it to be present for this workbook.

2. I have saved the original workbook as a new workbook, then deleted everything in
the new workbook, including one of the Tools Menu items, and reassigned new macros
to the Tools Menu items. I save this new workbook, close it, reopen it, and the Tools
menu looks just as it did without saving it.

What I want to do is create macros, assign them to a toolbar (especially if it is a Tools
menu item), and make these menu items (or toolbar buttons) available ONLY to this
workbook. I am having no luck accomplishing this.

Can anyone explain why I'm having these problems?

Thanks,
Bernie

You have to store the image on a worksheet, then copy it to the clipboard,
then use the pasteface command to apply it to the custom button on your
custom toolbar.

--
Regards,
Tom Ogilvy

"Phil Bewig" wrote in message
m...
I would like to create a toolbar similarly to what is described below,
for inclusion in an add-in. However, instead of text on command
buttons,
I want to have custom icons. I can create the icons with the icon
editor.
But how can I link them to the button?

Many thanks,

Phil


-----------Bernie's message
follows--------------------------------------
Ron,

I haven't tried your suggestion yet. But this seems very confusing
and a lot of effort to do
what I have asked. I didn't have to go through all this when I placed
these items on the
Tools menu eight years ago, so I don't know why I have to now?

I'm clearly missing something important here, but I'm not sure what...

Bernie

On Wed, 30 Jul 2003 18:38:58 +0200, "Ron de Bruin"

wrote:
One way to place a item in the tools menu

Run the macros in this events in the Thisworkbook module for example

Private Sub Workbook_Activate()
MenuBar_Item_Item
End Sub

Private Sub Workbook_Deactivate()
MenuBar_Item_Item_Delete
End Sub


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

Sub TestMacro()
MsgBox "Hi"
End Sub


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2002 SP-2)
www.rondebruin.nl



"bw" wrote in message news:1105_1059582525
@news.cableone.net...
I'm so confused!!!

Some history...

I have a workbook that I created maybe eight years ago, that has some
simple macros
that are run ONLY from this workbook, and are accessed by clicking on
Tools menu,
where the macros are listed at the bottom of the normal list. This
macros (and the items
on the Tools menu) are ONLY available for this particular workbook.

I have tried to duplicate this action in two ways:
1. I have simply dragged an item from the toolbar customize box to
the Tools menu, and
this works fine, but then it is present on any workbook I open from
then on, and of
course, I only want it to be present for this workbook.

2. I have saved the original workbook as a new workbook, then deleted
everything in
the new workbook, including one of the Tools Menu items, and
reassigned new macros
to the Tools Menu items. I save this new workbook, close it, reopen
it, and the Tools
menu looks just as it did without saving it.

What I want to do is create macros, assign them to a toolbar
(especially if it is a Tools
menu item), and make these menu items (or toolbar buttons) available
ONLY to this
workbook. I am having no luck accomplishing this.

Can anyone explain why I'm having these problems?

Thanks,
Bernie