Where can I obtain a list of the command button face ID's (images)
their corresponding image ID numbers used in Excel?

Or

Even better, how can I create a worksheet that lists the command butto
face ID's (images) & their corresponding image ID numbers in cells?

Thanks for the help. mikebur

--
mikebur
-----------------------------------------------------------------------
mikeburg's Profile: http://www.excelforum.com/member.php...fo&userid=2458
View this thread: http://www.excelforum.com/showthread.php?threadid=47003

Good evening Mikeburg

I always use this one - I've tried about half a dozen and this one is
easily the best.

http://www.oaltd.co.uk/DLCount/DLCo...le=BtnFaces.zip

HTH

DominicB


--
dominicb
------------------------------------------------------------------------
dominicb's Profile: http://www.excelforum.com/member.php...o&userid=18932
View this thread: http://www.excelforum.com/showthread...hreadid=470035

mikeburg,

Or even better...
I use my own "Display Face Id's" Excel add-in to provide a display
of the Excel button faces available. There are somewhere around
4000 button faces available, depending on your Excel version.

There are several of these add-in programs around,
but I feel mine is a little easier to use.

The add-in code includes assigning a button face to
a custom menu item and I supply the project
password with the program.

Glad to send it along, no charge, upon direct request.
Remove XXX from my email address.

Regards,
Jim Cone
San Francisco, USA
XX


"mikeburg"
wrote in message

Where can I obtain a list of the command button face ID's (images) &
their corresponding image ID numbers used in Excel?
Or
Even better, how can I create a worksheet that lists the command button
face ID's (images) & their corresponding image ID numbers in cells?
Thanks for the help.
mikeburg

This code will dump them all in the sheet:


Sub ShowAllFaceID()

Dim CBC As CommandBarControl
Dim i As Long
Dim n As Long
Dim c As Long
Dim strSpacer As String
Dim lFaceIDCount As Long
Dim sh As Shape

Application.ScreenUpdating = False
Application.Cursor = xlWait
strSpacer = "~" & String(3, Chr(32))
Cells.Clear

'get rid of the old FaceID's first
'---------------------------------
For Each sh In ActiveSheet.Shapes
sh.Delete
Next

Set CBC = _
CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlButton, _
temporary:=True)

Do
If i Mod 12 = 0 Then
n = n + 1
c = 1
Else
c = c + 1
End If
i = i + 1
On Error GoTo ERROROUT
CBC.FaceId = i
On Error Resume Next
CBC.CopyFace
If Err.Number = 0 Then
Cells(n, c) = strSpacer & i
ActiveSheet.Paste Cells(n, c)
Else
Err.Clear
End If
Application.StatusBar = _
" Dumping all Office FaceID's in sheet, please wait ... " &
i
Loop

ERROROUT:
CBC.Delete

With ActiveSheet.DrawingObjects
.ShapeRange.ScaleWidth 1.28, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleHeight 1.28, msoFalse, msoScaleFromTopLeft
Range(Cells(1), Cells(n, 1)).RowHeight = .ShapeRange.Height
End With

Range(Cells(1), Cells(n, 12)).Columns.AutoFit

With Application
.ScreenUpdating = True
.Cursor = xlDefault
.StatusBar = False
End With

End Sub


RBS


"mikeburg" wrote in
message ...

Where can I obtain a list of the command button face ID's (images) &
their corresponding image ID numbers used in Excel?

Or

Even better, how can I create a worksheet that lists the command button
face ID's (images) & their corresponding image ID numbers in cells?

Thanks for the help. mikeburg


--
mikeburg
------------------------------------------------------------------------
mikeburg's Profile:
http://www.excelforum.com/member.php...o&userid=24581
View this thread: http://www.excelforum.com/showthread...hreadid=470035

As said there are several free add-ins to show the FaceID's.
I have used several, but I like this one from Doug Glancy the best now:

http://www.dicks-blog.com/archives/2...-viewer-addin/

RBS

"mikeburg" wrote in
message ...

Where can I obtain a list of the command button face ID's (images) &
their corresponding image ID numbers used in Excel?

Or

Even better, how can I create a worksheet that lists the command button
face ID's (images) & their corresponding image ID numbers in cells?

Thanks for the help. mikeburg


--
mikeburg
------------------------------------------------------------------------
mikeburg's Profile:
http://www.excelforum.com/member.php...o&userid=24581
View this thread: http://www.excelforum.com/showthread...hreadid=470035

RBS,
Nicely done.
Regards,
Jim Cone
San Francisco, USA


"RB Smissaert"

wrote in message

This code will dump them all in the sheet:
Sub ShowAllFaceID()
Dim CBC As CommandBarControl
Dim i As Long
Dim n As Long
Dim c As Long
Dim strSpacer As String
Dim lFaceIDCount As Long
Dim sh As Shape
Application.ScreenUpdating = False
Application.Cursor = xlWait
strSpacer = "~" & String(3, Chr(32))
Cells.Clear
'get rid of the old FaceID's first
'---------------------------------
For Each sh In ActiveSheet.Shapes
sh.Delete
Next

Set CBC = _
CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlButton, _
temporary:=True)
Do
If i Mod 12 = 0 Then
n = n + 1
c = 1
Else
c = c + 1
End If
i = i + 1
On Error GoTo ERROROUT
CBC.FaceId = i
On Error Resume Next
CBC.CopyFace
If Err.Number = 0 Then
Cells(n, c) = strSpacer & i
ActiveSheet.Paste Cells(n, c)
Else
Err.Clear
End If
Application.StatusBar = _
" Dumping all Office FaceID's in sheet, please wait ... " & i
Loop

ERROROUT:
CBC.Delete
With ActiveSheet.DrawingObjects
.ShapeRange.ScaleWidth 1.28, msoFalse, msoScaleFromTopLeft
.ShapeRange.ScaleHeight 1.28, msoFalse, msoScaleFromTopLeft
Range(Cells(1), Cells(n, 1)).RowHeight = .ShapeRange.Height
End With
Range(Cells(1), Cells(n, 12)).Columns.AutoFit
With Application
.ScreenUpdating = True
.Cursor = xlDefault
.StatusBar = False
End With
End Sub
RBS

Yall are wonderful! Thanks for the help.

mikebur

--
mikebur
-----------------------------------------------------------------------
mikeburg's Profile: http://www.excelforum.com/member.php...fo&userid=2458
View this thread: http://www.excelforum.com/showthread.php?threadid=47003