VBA 遍历FaceID

chunyu.wu

已于 2024-07-18 17:37:45 修改

阅读量222

点赞数 7

分类专栏： VBA 文章标签： VBA

于 2024-07-18 17:27:05 首次发布

本文链接：https://blog.csdn.net/wuchunyu002/article/details/140528715

版权

VBA 专栏收录该内容

57 篇文章 2 订阅

订阅专栏

1. 遍历FaceID

Option Explicit

Sub getFaceID()
    Dim i As Long
    Dim oCB As CommandBar
    Dim oCBB As CommandBarButton
    Dim oCBC As Variant
    Dim arrFaceID As Variant
    Dim oDic As Object
    Dim iFaceId As Long
    
On Error Resume Next
    
    Set oDic = CreateObject("Scripting.Dictionary")
    For Each oCB In Excel.Application.CommandBars
        With oCB
            .Reset
            For Each oCBC In .Controls
                iFaceId = oCBC.FaceId
                
                oDic.Add iFaceId, ""
            Next
        End With
    Next
    arrFaceID = oDic.keys
    Set oCB = Excel.Application.CommandBars("Worksheet Menu Bar")
    oCB.Reset
    For i = 1 To UBound(arrFaceID)
        Set oCBB = oCB.Controls.Add
        With oCBB
            .FaceId = arrFaceID(i)
            .TooltipText = "FaceID:" & .FaceId
        End With
    Next i
End Sub