Hi Christmas,
Other learned members of the community seem to have provided a number of
useful options that should meet your need. Just in case it hasn't been,
here's another option ...
Sub CreateFace()
Dim i As Integer
Dim TempItem(256)
On Error Resume Next
CommandBars("Temporary").Delete
' Create a temporary toolbar to hold and display button faces.
Set TempBar = CommandBars.Add(Name:="Temporary",
Position:=msoBarFloating, Temporary:=True)
TempBar.Visible = True
For i = 1 To 128 ' Increase/Decrease as desired e.g. i = 2049 to
2304. Dim TempItem() accordingly.
Set TempItem(i) = TempBar.Controls.Add(Type:=msoControlButton,
Temporary:=True)
With TempItem(i)
.FaceId = i
.Caption = .FaceId
.Style = msoButtonIconAndCaption
' Replace 2586 with the face you like.
If .FaceId = 2586 Then .CopyFace
' .CopyFace copies this face (image) to the clipboard.
' You can then paste the image into other programs.
End With
Next
End Sub
(Resize the resulting toolbar as desired).
Office 2003 has in excess of 2,000 button faces available!
Regards, Sean.
David McRitchie said:
Hi Christmas,
one such program is Jim Rech's
Button Faces (BtnFaces), Jim Rech, download from Stephen Bullen's MVP page.
http://www.oaltd.co.uk/MVP/Default.htm
for more information see
Identification of Toolbars Buttons (icons) (#identify)
http://www.mvps.org/dmcritchie/excel/toolbars.htm#identify
---
HTH,
David McRitchie, Microsoft MVP - Excel [site changed Nov. 2001]
My Excel Pages:
http://www.mvps.org/dmcritchie/excel/excel.htm
Search Page:
http://www.mvps.org/dmcritchie/excel/search.htm
Christmas May said:
Does anyone know of a website or macro to display all of the possible "Face
ID's" for control buttons?
Thanks in advance,
Christmas May