用于在运行宏时更改多个功能区按钮标签的VBA代码

Sub ChangeButtonLabels()
    Dim btn As CommandBarButton
    Dim ctrl As CommandBarControl
    
    ' 遍历所有的命令栏
    For Each ctrl In Application.CommandBars
        ' 检查是否为功能区命令栏
        If ctrl.Type = msoControlPopup Then
            ' 遍历功能区命令栏中的按钮
            For Each btn In ctrl.Controls
                ' 检查按钮的标签是否需要更改
                If btn.Caption = "原标签名称" Then
                    ' 更改按钮的标签
                    btn.Caption = "新标签名称"
                End If
            Next btn
        End If
    Next ctrl
End Sub