This is an addin for determining FaceId numbers in Excel. It works for all versions of Excel that have classic menus, from Excel 97 to Excel 2003. It’s been recommended by a few folks, including Dick Kusleika of the Daily Dose of Excel.
Download the FaceId Viewer addin
FaceId Viewer features include:
- copy and paste FaceId images
- store your favorite FaceId images
- browse FaceIds by toolbar
- resizable palette
- forward and back button
- scan through FaceIds with timer
- automatically adjust to version of Excel being used
Pingback: Creating Dynamic Runtime Lists - yoursumbuddy
Here is some code to get the MsoImages as well. A complete list can be gathered from https://bert-toolkit.com/imagemso-list.html
Get the list, paste on Activesheet, and select cells. The run code to get a bunch of icons saved to disk, where they can be recovered for some other purpose
Private Sub MsoImages_Get()<br />
' returns a 16x16/32x32/64x64 version of the icons as an IPictureDisp object. Choose size as desired<br />
Dim PictureDispositive As IPictureDisp<br />
Dim FaceIDs As Variant, FaceID As Variant<br />
FaceIDs = Selection.Cells.Value2</p>
<p> On Error Resume Next 'GoTo NexItem<br />
For Each FaceID In FaceIDs<br />
Set PictureDispositive = Application.CommandBars.GetImageMso(FaceID, 32, 32)<br />
If err.number 0 Then Debug.Print FaceID: err.Clear ' if any app missing, icons would not be retrieved<br />
SavePicture PictureDispositive, ?PathToStorageHere? & FaceID & ".png"<br />
NexItem:<br />
DoEvents<br />
Next FaceID<br />
On Error GoTo 0<br />
End Sub<br />
Thanks a lot for this comment! I just realized today that I’ve gotten some comments in the last year.