标签: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所示。
欢迎在下面留言,完善本文内容,让更多的人学到更完美的知识。