Тема: Управление лентой с помощью процедур VBA
Если возможно процедурой VBA убирать (прятать) ленту Word-а, то с помощью какого оператора (инструкции)?
Re: Управление лентой с помощью процедур VBA
Поиском в справке VBA по слову ribbon (лента) можно найти:
Word Developer Reference
Window.ToggleRibbon Method
Shows or hides the ribbon.
Syntax
expression.ToggleRibbon
expression An expression that returns a Window object.
Remarks
If the ribbon is visible, the TobbleRibbon method hides it; if the ribbon is hidden, the ToggleRibbon method shows it.
Если лента видна, то метод TobbleRibbon скрывает ее; если лента скрыта, то TobbleRibbon показывает ее
- Вождь
- Модератор
- Неактивен
Re: Управление лентой с помощью процедур VBA
Sub Лента_Переключить_видимость()
Application.Run "ToggleRibbon"
End SubМакросы под заказ и готовый пакет - mtdmacro.ru
Re: Управление лентой с помощью процедур VBA
Спасибо, господа, уже проверил - работает!)) Вы мне существенно облегчили работу!
Было б совсем здорово, если и "линейку" можно было б скрыть (программно), и строку меню, и строку заголовка... Т.е., вообще, если б можно было бы развернуть документ (рабочую область) НА ВЕСЬ ЭКРАН...
- Вождь
- Модератор
- Неактивен
Re: Управление лентой с помощью процедур VBA
Кому интересно для Excel, вот пару вариантов:
Sub EXCEL_RibbonToggle_2()
Application.CommandBars.ExecuteMso "MinimizeRibbon"
End Sub
Sub EXCEL_RibbonToggle_3()
Application.CommandBars.ExecuteMso "HideRibbon"
End Sub
Sub EXCEL_RibbonToggle_1()
If Application.ExecuteExcel4Macro("Get.ToolBar(7,""Ribbon"")") Then
Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", False)"
Else
Application.ExecuteExcel4Macro "Show.ToolBar(""Ribbon"", True)"
End If
End SubМакросы под заказ и готовый пакет - mtdmacro.ru