Слово VBA для отображения / скрытия панели стилей

Question

В течение нескольких лет я использовал следующие VBA и объект CommandBars для отображения / скрытия панелей навигации и стилей следующим образом:

Application.CommandBars("Styles").Visible = True 

Но код для панели стилей недавно перестал работать , Тот же код для панели навигации продолжает работать нормально.

Кто-нибудь знает, как правильно включать и выключать панели стилей и навигации? Возможно я делал это неправильно. Я попытался записать макрос, чтобы сделать это, но безуспешно. Я использую кнопку панели инструментов (alt-ctrl-shift-S) для переключения панели стилей и могу написать VBA для явной отправки этих ключей. Но я бы предпочел сделать это с VBA и без нажатия клавиш. Спасибо.

Answer 1

Использование CommandBars в приложениях Microsoft Office заменено новым ленточным компонентом пользовательского интерфейса Microsoft Office Fluent. Для получения дополнительной информации см. Обзор ленты Office Fluent .

Однако некоторые методы, такие как ExecuteMso , по-прежнему действительны и используются в тех случаях, когда нет объектной модели для конкретная команда. Работает с элементами управления, которые являются встроенными кнопками, кнопками toggleButtons и splitButtons. В случае ошибки он возвращает E_InvalidArg для недопустимого idMso и E_Fail для элементов управления, которые не включены или не видны.

Application.CommandBars.ExecuteMso("Copy")

Вы можете попытаться найти требуемый идентификатор встроенного элемента управления и использовать ExecuteMso выполнить его. См. Файлы справки Office 2016: Идентификаторы управления пользовательским интерфейсом Office Fluent .