今天为了在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 
|