[VBA]office中内建的faceid所对应的图标

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

owen_oy

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

阅读量6.9k

点赞数

文章标签： vba office integer delete excel 工具

本文链接：https://blog.csdn.net/owen_oy/article/details/261655

版权

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