[VBA]office中内建的faceid所对应的图标

今天为了在EXCEL的工具栏中建一个自定义按钮，并加上图标，但怎么找也找不出资料来说明各个FACEID对应的图标是什么，还好，找到这个，一试，爽！所有图标出齐了！

注：

Sub ShowFaceIDs()

Dim NewToolbar As CommandBar

Dim NewButton As CommandBarButton

Dim i As Integer, IDStart As Integer, IDStop As Integer

' Delete existing FaceIds toolbar if it exists

On Error Resume Next

Application.CommandBars("FaceIds").Delete

On Error GoTo 0

' Add an empty toolbar

Set NewToolbar = Application.CommandBars.Add _

(Name:="FaceIds", temporary:=True)

NewToolbar.Visible = True

' Change the following values to see different FaceIDs

IDStart = 1

IDStop = 800

For i = IDStart To IDStop

Set NewButton = NewToolbar.Controls.Add _

(Type:=msoControlButton, ID:=2950)

NewButton.FaceId = i

NewButton.Caption = "FaceID = " & i

Next i

NewToolbar.Width = 600

End Sub