Sub Ls_CommandBarControl()
'CommandBarのコントロールのアイコンを取り出す
'コードはWord,Accessでも使えると思います。
    Dim cb As CommandBar, i As Integer, c As Integer, v As Long, w As String
    On Error Resume Next
    
    c = 1
    For Each cb In CommandBars
        With cb
            For i = 1 To .Controls.Count
                With .Controls(i)
                    c = c + 1
                    v = .Id
                    If Err = 0 Then
                        Range("A" & c).Value = v
                    Else
                        Err.Clear
                    End If
                    
                    v = .FaceId
                    If Err = 0 Then
                        Range("B" & c).Value = v
                        .CopyFace
                        Range("C" & c).Select
                        ActiveSheet.Paste
                    Else
                        Err.Clear
                    End If
                    
                    w = .Caption
                    If Err = 0 Then
                        Range("D" & c).Value = w
                    Else
                        Err.Clear
                    End If
                End With
            Next i
        End With
    Next cb
End Sub