If you’re interested send me an email, or just follow these simple steps:
- create a new userform
- put 4 commandbarbuttons on it, size and position doesn’t matter, w/ std. system names “CommandButton1? and so on.

put all the following code into the code module of the newly created userform.
run it and be happy to have another faceID browser in your collection.
‘————————————————
Option Explicit
Dim currentFaceIDstart As Integer

Private Sub UserForm_Initialize()
SetupCmdButtons
Create500Images
currentFaceIDstart = 1
SetFaces 4, currentFaceIDstart, 500
End Sub

Private Sub SetupCmdButtons()
If Controls.count 4 Then
MsgBox “There need to be 4 CommandButtons on this form. Not more and not less. Modify and try again!”
Unload Me
End If

Dim i As Integer
For i = 1 To 4
With Me.Controls(i – 1)
.Top = 1
.Left = i * 18 + 118
.Width = 18
.Height = 18
End With
Next i
SetFaces 0, 154, 4
Controls(0).ControlTipText = “Start at 1?
Controls(1).ControlTipText = “back”
Controls(2).ControlTipText = “forward”
Controls(3).ControlTipText = “goto last gallery”
End Sub

Private Sub CommandButton1_Click()
If currentFaceIDstart 1 Then
currentFaceIDstart = 1
SetFaces 4, currentFaceIDstart, 500
End If
End Sub

Private Sub CommandButton2_Click()
If currentFaceIDstart > 500 Then
currentFaceIDstart = currentFaceIDstart – 500
If currentFaceIDstart = 8501 Then currentFaceIDstart = 7501
If currentFaceIDstart = 5001 Then currentFaceIDstart = 4001
SetFaces 4, currentFaceIDstart, 500
End If
End Sub

Private Sub CommandButton3_Click()
If currentFaceIDstart < 10001 Then
currentFaceIDstart = currentFaceIDstart + 500
If currentFaceIDstart = 8001 Then currentFaceIDstart = 9001
If currentFaceIDstart = 4501 Then currentFaceIDstart = 5501
If currentFaceIDstart = 10001 Then
SetFaces 4, currentFaceIDstart, 100
Else
SetFaces 4, currentFaceIDstart, 500
End If
End If
End Sub

Private Sub CommandButton4_Click()
currentFaceIDstart = 10001
SetFaces 4, currentFaceIDstart, 100
End Sub

Private Sub Create500Images()
Dim i As Integer
Dim j As Integer
Dim jten As Integer
Dim n As Integer

Me.Height = 498
Me.Width = 352
For i = 1 To 25
jten = 1
For j = 1 To 20
With Me.Controls.Add(“Forms.Image.1?)
.Top = (i – 1) * 17 + Fix(n / 100) * 6 + 20
.Left = (j – 1) * 17 + jten
.Width = 18
.Height = 18
.BorderColor = vbButtonShadow
.BackColor = Me.BackColor
End With
n = n + 1
If j = 10 Then jten = 3
Next j
Next i
End Sub

Private Sub SetFaces(FirstCtrlID As Integer, start As Integer, count As Integer)
Dim i As Integer
Dim j As Integer
‘From Microsoft Office xx.x Object Library
Dim oBtn As Office.CommandBarButton
‘From Microsoft Windows Common Controls 6.0
Dim oImgList(0 To 1) As MSComctlLib.ImageList

Me.Height = count * 0.91 + 42
Me.Caption = “MS Office/Excel FaceID’s ” & _
CStr(start) & ” – ” & CStr(start + count – 1)

On Error Resume Next
CommandBars(“FaceIDcmdbar”).Delete
On Error GoTo 0
With CommandBars.Add(“FaceIDcmdbar”, , , True)
Set oBtn = .Controls.Add(msoControlButton, , , , True)
End With
For i = 0 To 1
Set oImgList(i) = New ImageList
With oImgList(i)
.ImageHeight = 16
.ImageWidth = 16
.UseMaskColor = True
.MaskColor = IIf(i = 0, vbWhite, vbBlack)
.BackColor = IIf(i = 0, vbButtonFace, vbBlack)
End With
Next
On Error Resume Next

For i = start To start + count – 1
oBtn.FaceId = i
With oImgList(0).ListImages
.Clear
.Add 1, “M”, oBtn.Mask
End With
With oImgList(1).ListImages
.Clear
.Add 1, “MM”, oImgList(0).Overlay(“M”, “M”)
.Add 2, “P”, oBtn.Picture
End With
With Me.Controls(FirstCtrlID + j)
.Picture = oImgList(1).Overlay(“P”, “MM”)
.ControlTipText = CStr(i)
End With
j = j + 1
Next i
End Sub

FaceID Explorer
Available on my website http://www.vangelder.co.nz

I dont know how it looks in 2007… probably rubbish.

Rob

http://peltiertech.com/Excel/Zips/ShowFace.zip

As John points out, it will suck in 2007.

Although FaceID images don’t have much use in Excel 2007, I still like to use them sometimes for images on UserForm controls.

But it WAS fun looking at all the little pictures!

You could pick apart my code from this addin.
http://www.andypope.info/vba/buttoneditor.htm