Norman Jones said:
Hi Labrev,
First add a default button to a toolbar:
View | Toolbars | Customize | Categories | scroll to Macros | drag the
smiley button in the Commands window to the tool bar of your choice | Close
To edit the icon:
Right-click the icon | right-click the icon again | Edit Button Image | Use
the opened button editor to effect changes | OK | Close
To copy an existing grahic or icon image:
Copy the graphic | Right-click the icon | right-click the icon again | Paste
Button Image | Close.
To use a selection of alternative button icons:
Right-click the icon | right-click the icon again | Change Button Image |
Select an icon | Close.
The bult-in button editor is very rudimentary: you could perform a Google
search for icon editors or icons.
---
Regards,
Norman
Thanks Norman,
got all that sorted, my problem ( should have given more info on initial
question) is that when I open the file, a new Custom toolbar is displayed and
the Worksheet menu bar is removed.This new CB works fine but I want to tart
it up with some new icons.
here is some code >>
Sub CreateMenu()
Dim cb As CommandBar, cbMenu As CommandBarControl, cbSubMenu As
CommandBarControl
DeleteCommandBar ' delete the custom menu if it already exists
' create a new menu bar to replace the built-in menu bar
Set cb = Application.CommandBars.Add("MyCommandBarName", msoBarTop,
True, True)
' create a new menu on an existing commandbar (the next 6 lines)
Set cbMenu = cb.Controls.Add(msoControlPopup, , , , True)
With cbMenu
.Caption = "&football"
.Tag = "MyTag"
.BeginGroup = False
End With
' add menuitem to menu
With cbMenu.Controls.Add(msoControlButton, 1, , , True)
.Caption = "&Leagues"
.OnAction = ThisWorkbook.Name & "!Macroname"
.Style = msoButtonIconAndCaption
.FaceId = ?
when I edit/create icon, it always goes back to its original state when the
new CB is loaded.
Hope this helps my cause
Again many thanks