Как создать свою собственную личную вкладку макросов?

Я видел макро-шаблоны, созданные командой разработчиков, с которой я работаю, и попытался сделать свою собственную вкладку. Основная проблема в том, что новая вкладка не позволяет мне переименовать её, и я не могу увеличить размеры кнопок.

Я искал файл: officecustomuieditorfiles, который упоминался ранее. Когда я его искал, мне направили на этот сайт.

https://bettersolutions.com/vba/ribbon/custom-ui-editor.htm
и эта информация о загрузке после этого утверждает, что Windows 11 больше не поддерживает его.

Поскольку мне не разрешено загружать дополнительное программное обеспечение на работе:

Кто-нибудь знает, как создать новую пользовательскую вкладку макросов, которую я смогу переименовать и сделать кнопки макросов большими?

Любая информация или указания, куда мне можно обратиться, будут очень признательны.

альдо – вот копия моей версии, которую я смог создать:

http://www.vbaexpress.com/kb/getarticle.php?kb_id=427
    Private Const COMMANDBAR_NAME As String = "Menu"
    Private Const BUTTON_CAPTION As String = "Macros" ' Открыть
 Private Sub Workbook_Open()
   'https://learn.microsoft.com/en-us/office/vba/api/office.commandbarcontrols.add
    'https://bettersolutions.com/vba/enumerations/msocontroltype.htm
    'https://github.com/areed1192/sigma_coding_youtube/blob/master/vba/vba-advanced/commandbar-object/CommandbarControls%20Object.bas
    'https://stackoverflow.com/questions/61918089/adding-macro-to-add-ins-tab-custom-toolbars
'франкен старт
    Dim objCommandBar As CommandBar
    Dim objButton As CommandBarButton
    ' Попытка получить Commandbar (если он существует)
    On Error Resume Next
    Set objCommandBar = Me.CommandBars(COMMANDBAR_NAME)
    On Error GoTo 0
    
    
     If (objCommandBar Is Nothing) Then
        ' Создайте командную панель
        On Error Resume Next
        Set objCommandBar = Application.CommandBars.Add(Name:=COMMANDBAR_NAME, Position:=msoBarTop, MenuBar:=False, Temporary:=True)
        On Error GoTo 0
        'msoBarTypeNormal
           'msoBarTypeMenuBar
        'msoBarTypePopup
            'msoBarTop
        'msoBarPopup
        ' Действительная командная панель?
        
        If (Not objCommandBar Is Nothing) Then
            ' Добавьте кнопки на командную панель
            With objCommandBar
       
       
            
                ' Добавить кнопку
                Set objButton = objCommandBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
                 ' Установите свойства кнопки
                With objButton
                    .Style = msoButtonIconAndCaption
                    .Caption = "Clear"
                    .FaceId = 456
                    .TooltipText = "Clear"
                    .OnAction = "'" & ThisWorkbook.Name & "'!Clear"
                    .Height = 100
                     .Width = 100
                End With
          
                Set objButton = objCommandBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
                With objButton
                    .Style = msoButtonIconAndCaption
                    .Caption = "Combine_DF"
                    .FaceId = 1774
                    .TooltipText = "Combine_DF_Reports"
                    .OnAction = "'" & ThisWorkbook.Name & "'!Combine_DF_Reports"
                    .Height = 100
                     .Width = 100

                End With
               Set objButton = objCommandBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
              With objButton
                    .Style = msoButtonIconAndCaption
                    .Caption = "Inbound_Reports"
                    .FaceId = 526
                    .TooltipText = "Combine_Inbound_Reports"
                    .OnAction = "'" & ThisWorkbook.Name & "'!Combine_Inbound_Reports"
                    .Height = 100
                    .Width = 100

                End With
                Set objButton = objCommandBar.Controls.Add(Type:=msoControlButton, Temporary:=True)
                With objButton
                    .Style = msoButtonIconAndCaption
                    .Caption = "Production"
                    .FaceId = 747
                    .TooltipText = "Tester Move_Production"
                    .OnAction = "'" & ThisWorkbook.Name & "'!Move_Production"
                    .Height = 100
                     .Width = 100
                
                    
                End With
        With Application
        .ShowToolTips = True
        .LargeButtons = True
        .ColorButtons = True
        '.Caption = "&Menu" 'название элемента меню
         End With
                
                ' Показать командную панель
                .Position = msoBarTop
                .RowIndex = msoBarRowLast
                .Visible = True
    
                
    MsgBox ("Макросы расположены на вкладке меню надстроек")
                
            End With
        End If
    End If
    
    

    
End Sub
 
 
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next 'в случае, если элемент меню уже был удален
    Application.CommandBars("Worksheet Menu Bar").Controls("My Macros").Delete 'удалить элемент меню
    On Error Resume Next
    ' Попытка удалить командную панель iTrade
    Call Application.CommandBars(COMMANDBAR_NAME).Delete
    
    ' Восстановить обработку ошибок
    On Error GoTo 0
    On Error Resume Next
    ' Попытка удалить командную панель iTrade
    Call Application.CommandBars(Menu).Delete
    On Error GoTo 0
    ' Восстановить обработку ошибок
    
    On Error Resume Next
    ' Попытка удалить командную панель iTrade
    Call Application.CommandBars(TMenu).Delete
    
    ' Восстановить обработку ошибок
    On Error GoTo 0
    
End Sub