Как активировать (сделать видимой/включить/показать) панель выбора в PowerPoint с помощью VBA?

В PowerPoint 2013 свойства панели выбора доступны из объекта CommandBar следующим образом:

Application.CommandBars("Selection")

(обратите внимание, что для PowerPoint 2010 и 2007 это название «Выделение и видимость»)

При использовании Alt+F10 в пользовательском интерфейсе для отображения панели выбора следующие два свойства переключаются на true:

Application.CommandBars("Selection").Visible
Application.CommandBars("Selection").Enabled

Однако при попытке программно установить для них значение true оператор .Visible=True вызывает неуказанную ошибку автоматизации, а оператор .Enabled=True выполняется, но не изменяет состояние этого свойства.

Но, и это странно, если Alt+F10 используется для отображения и скрытия панели выбора при первом запуске PowerPoint, две строки кода работают! Я проверил все свойства до и после Alt+F10, и переключаются только .Visible и .Enabled.

Как я могу надежно и предпочтительно отображать панель выбора без необходимости идти по маршруту SendKeys?


person Jamie Garroch - MVP    schedule 26.07.2014    source источник


Ответы (1)


Если вы просто хотите показать это, попробуйте:

    If Not CommandBars.GetPressedMso("SelectionPane") Then CommandBars.ExecuteMso ("SelectionPane")
person John Wilson    schedule 26.07.2014
comment
Спасибо, Джон. Это работает для 2013, 2010 и 2007 без каких-либо изменений :-) - person Jamie Garroch - MVP; 28.07.2014