[VBA Source]显示所有faceId对应的图标

最新推荐文章于 2024-07-18 17:27:05 发布

转载最新推荐文章于 2024-07-18 17:27:05 发布 · 6.2k 阅读

文章标签：

#vba #integer #delete

源码积累专栏收录该内容

12 篇文章

订阅专栏

本文介绍了一段VBA代码，用于在应用程序中自动创建一个带有FaceID的工具栏。工具栏从ID 1开始到800结束，每个按钮对应一个FaceID，并显示其对应的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

您可能感兴趣的与本文相关的镜像