VBA-自定義加載項圖標（全顯示）

Public Sub showFaceId()
    On Error Resume Next
    Dim oCB As CommandBar
    Dim oCBB As CommandBarButton
    Set oDic = CreateObject("Scripting.Dictionary")

    For Each oCB In Excel.Application.CommandBars
        With oCB
            .Reset
        For Each oCBC In .Controls
            iFaceId = oCBC.FaceId
            oDic.Add iFaceId, ""
        Next
        End With
    Next

    arr = oDic.keys
    Set oCB = Excel.Application.CommandBars("Worksheet Menu Bar")
    oCB.Reset
    For i = 1 To UBound(arr)
        Set oCBB = oCB.Controls.Add
        With oCBB
            .FaceId = arr(i)
            .TooltipText = "FaceID=" & .FaceId
        End With
    Next i
End Sub

Public Sub removeFaceId()
    For Each oCBB In Application.CommandBars("Worksheet Menu Bar").Controls
        If Not oCBB.BuiltIn Then oCBB.Delete
    Next
End Sub