调试经验——使用VBA显示Excel中所有faceId对应的图标 （Display all FaceID Icons in Excel with VBA）

需求：在Excel中添加自定义菜单时，为了美观、易用，需要添加一个图标（faceid）。那么，有哪些可用的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

这段代码对我来说也派上用场了，我为“朗读”菜单选了一个图标（faceID=186），即绿色的播放按钮，还算贴近实际功能。

参考文章：

https://blog.csdn.net/fitzwilliam/article/details/1511469