OFFICE2007内置图标参照

mg670

怎样用程序读取呢

mg670

大家试试这个代码，不用金钱的。
Public 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
   
    'Running IDs
    For i = IDStart To IDStop
        Set NewButton = NewToolbar.Controls.Add _
            (Type:=msoControlButton, ID:=2950)
        NewButton.FaceId = i
        NewButton.Caption = i
        NewButton.Style = msoButtonIconAndCaption
    Next i
    NewToolbar.Width = 600
End Sub