最近因為研究vba內製作工具列，因此特別需要圖示(自己畫自訂圖想說麻煩之後再研究)，所以就找了一下不然每次FaceID都亂填~~找了很久終於Google大神幫我找到了分享一下~
以下附上程式碼
Private Sub CommandButton1_Click()
Dim NewToolbar As CommandBar
Dim NewButton As CommandBarButton
Dim i As Integer, IDStart As Integer, IDStop As Integer
On Error Resume Next
Application.CommandBars("FaceIds").Delete
On Error GoTo 0
Set NewToolbar = Application.CommandBars.Add _
(Name:="FaceIds", temporary:=True)
NewToolbar.Visible = True
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
接著大家快點去玩工具列吧~
