Создать новую вкладку в Excel

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 в пользовательском интерфейсе или использовать программное обеспечение, которое сделает это за вас.

См. Ссылки ниже:

Как добавить пользовательскийВкладка ленты с использованием VBA? http://www.contextures.com/excelribbonaddcustomtab.html