Переключение ленты Excel с помощью VBA

Я хотел бы переключить ленту Excel при открытии Excel. Например, когда Excel открывается, он всегда показывает ленту «Пуск», но я хочу установить еще одну «DeveloperTab» с помощью VBA.

Как получить idMso для ленты Excel?


excel vba ribbonx
person kavitha    schedule 16.10.2018    source источник
comment
Ознакомьтесь с этим обсуждением, чтобы узнать, проливает ли оно свет на вашу ситуацию.   -  person PeterT    schedule 17.10.2018

Ответы (1)


arrow_upward
0
arrow_downward

Я смог сделать это с помощью класса и небольшого количества XML. Вот пример файла в GitHub. Если вы скопируете файл .xlam в каталог %AppData%\Microsoft\Excel\XLSTART\, каждый раз, когда Excel открывает вкладку «Разработчик», фокус будет получать фокус. Для создания/редактирования ленты XML в Excel используйте Инструмент пользовательского редактора пользовательского интерфейса.

Пример видео

скриншот

Класс ленты

Option Explicit

Public Sub Ribbon_Load(ribbonUI As IRibbonUI)
On Error GoTo ErrTrap

    ribbonUI.ActivateTabMso ("TabDeveloper")

ExitProcedure:
    On Error Resume Next
    Exit Sub

ErrTrap:
    Select Case Err.Number
        Case Else
            Debug.Print "Error #: " & Err.Number & " |Error Description: " & Err.Description
    End Select
    Resume ExitProcedure
    Resume 'for debugging

End Sub

XML-код

<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="Ribbon_Load">
    <ribbon>
    </ribbon>
</customUI>
person aduguid    schedule 24.10.2018