Hi all,
I have downloaded various Face Id Add-ins, to check what icons Face Ids are.
Is it possible to create new or edit icons and paste these into the blank
spaces where no icons are present ?

Many thanks for any help/suggestions

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



"labrev" wrote in message
...
Hi all,
I have downloaded various Face Id Add-ins, to check what icons Face Ids
are.
Is it possible to create new or edit icons and paste these into the blank
spaces where no icons are present ?

Many thanks for any help/suggestions

"Norman Jones" wrote:

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



"labrev" wrote in message
...
Hi all,
I have downloaded various Face Id Add-ins, to check what icons Face Ids
are.
Is it possible to create new or edit icons and paste these into the blank
spaces where no icons are present ?

Many thanks for any help/suggestions


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

You can create icons and load them into a worksheet and paste them into your
new toolbars.
In essence, you need to have the icons as an image somewhere and load the
shape. I do this by putting them on a hidden sheet on the workbook that the
commandbar is created from, with code somewhat like

cbTable.Shapes(shapename).Copy*Picture
cbCtl.PasteFace


where cbTable is the codename of the sheet containing the picture, shapename
is the name of the shape, such as 'Picture 30', and cbCtl is an object
variable for the control being added.


If you want to use the builtin faceids, you would use something like


cbCtl.FaceId = faceIdNum


--
HTH

Bob Phillips

"labrev" wrote in message
...


"Norman Jones" wrote:

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



"labrev" wrote in message
...
Hi all,
I have downloaded various Face Id Add-ins, to check what icons Face
Ids
are.
Is it possible to create new or edit icons and paste these into the
blank
spaces where no icons are present ?

Many thanks for any help/suggestions


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

Bob,
Thanks for your help, having a go at it that later.
If I can't get my head round it , I'll just not put icons in :)



"Bob Phillips" wrote:

You can create icons and load them into a worksheet and paste them into your
new toolbars.
In essence, you need to have the icons as an image somewhere and load the
shape. I do this by putting them on a hidden sheet on the workbook that the
commandbar is created from, with code somewhat like

cbTable.Shapes(shapename).CopyÂ*Picture
cbCtl.PasteFace


where cbTable is the codename of the sheet containing the picture, shapename
is the name of the shape, such as 'Picture 30', and cbCtl is an object
variable for the control being added.


If you want to use the builtin faceids, you would use something like


cbCtl.FaceId = faceIdNum


--
HTH

Bob Phillips

"labrev" wrote in message
...


"Norman Jones" wrote:

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



"labrev" wrote in message
...
Hi all,
I have downloaded various Face Id Add-ins, to check what icons Face
Ids
are.
Is it possible to create new or edit icons and paste these into the
blank
spaces where no icons are present ?

Many thanks for any help/suggestions


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