创建自定义工具栏，可查看按钮图标及对应的ID属性

fanjy

发布于 2024-03-13 10:19:40

600

发布于 2024-03-13 10:19:40

标签：VBA，自定义功能区

有时候，我们需要找到按钮图标及其对应的FaceId属性，以便于我们在自定义菜单或其他界面时使用。本文所介绍的代码示例，是通过使用Excel VBA自定义工具栏，可以查看图标的FaceId属性。FaceId属性用于返回或设置命令栏按钮控件面的Id号。

使用下面的代码，创建一个用可用图像填充的自定义工具栏，该工具栏中的按钮按照Id号顺序排列，当鼠标悬浮图标按钮上时会显示其FaceID属性值。注意，修改代码中的IDStop值可以查看更多图标按钮。

代码：

Sub ShowFaceIDs()
 Dim NewToolbar As CommandBar
 Dim NewButton As CommandBarButton
 Dim i As Integer
 Dim IDStart As Integer
 Dim IDStop As Integer
 
 '如果存在则删除FaceIds工具栏
 On Error Resume Next
 Application.CommandBars("FaceIds").Delete
 On Error GoTo 0
 
 '添加一个空工具栏
 Set NewToolbar = Application.CommandBars.Add _
     (Name:="FaceIds", temporary:=True)
 NewToolbar.Visible = True
 
 '可以修改下面的值来查看不同的FaceIDs
 IDStart = 1
 IDStop = 250
 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

运行上面代码后的效果如下图1所示。