Question

当用户打开启用宏的工作表（.xlsm）时，我想创建一个带有自定义按钮的新选项卡。下面是我之前在宏的ThisWorkbook模块中使用过的代码;但是，按钮显示在“加载项”选项卡下。我的目标是在自定义选项卡下添加按钮（如果可能）。谢谢。

'Stored in ThisWorkbook module of my macro
Private Sub Workbook_Open()

            Dim CmdBar As CommandBar
            Dim CmdBarMenu As CommandBarControl
            Dim CmdBarMenuItem As CommandBarControl

            Set CmdBar = Application.CommandBars("Worksheet Menu Bar")
            Set CmdBarMenu = CmdBar.Controls("Tools")

            On Error Resume Next
                Application.DisplayAlerts = False
                CmdBarMenu.Controls(Button).Delete
                Application.DisplayAlerts = True
            On Error GoTo 0

            Set CmdBarMenuItem = CmdBarMenu.Controls.Add(Type:=msoControlButton)
            With CmdBarMenuItem
                .Caption = Button
                .OnAction = “NameOfMyMacro"
                .FaceId = 5872
                .Style = msoButtonIconAndCaptionBelow
            End With

    End Sub

Answer 1

您可以在用户界面上手动更改.XML，或使用为您执行此操作的软件。

请参阅以下链接：

How to add a custom Ribbon tab using VBA? http://www.contextures.com/excelribbonaddcustomtab.html

在Excel中创建新选项卡

1 个答案: