1 Тема от Martin

  • Martin
  • рядовой
  • Неактивен
  • Зарегистрирован: 25.07.2011
  • Сообщений: 5

Тема: Управление лентой с помощью процедур VBA

Если возможно процедурой VBA убирать (прятать) ленту Word-а, то с помощью какого оператора (инструкции)?

2 Ответ от Boris_R

  • Boris_R
  • полковник
  • Неактивен
  • Зарегистрирован: 07.08.2012
  • Сообщений: 234
  • Поблагодарили: 110
  • За сообщение: 1

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 показывает ее

3 Ответ от Вождь

  • Управление лентой с помощью процедур VBA
  • Вождь
  • Модератор
  • Неактивен
  • Зарегистрирован: 07.01.2010
  • Сообщений: 745
  • Поблагодарили: 181
  • За сообщение: 1

Re: Управление лентой с помощью процедур VBA

Sub Лента_Переключить_видимость()
    Application.Run "ToggleRibbon"
End Sub
Макросы под заказ и готовый пакет - mtdmacro.ru

СайтВождь

4 Ответ от Martin

  • Martin
  • рядовой
  • Неактивен
  • Зарегистрирован: 25.07.2011
  • Сообщений: 5

Re: Управление лентой с помощью процедур VBA

Спасибо, господа, уже проверил - работает!)) Вы мне существенно облегчили работу!
Было б совсем  здорово, если и "линейку" можно было б скрыть (программно), и строку меню, и строку заголовка... Т.е., вообще, если б можно было бы развернуть документ (рабочую область) НА ВЕСЬ ЭКРАН...

5 Ответ от Вождь

  • Управление лентой с помощью процедур VBA
  • Вождь
  • Модератор
  • Неактивен
  • Зарегистрирован: 07.01.2010
  • Сообщений: 745
  • Поблагодарили: 181

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

СайтВождь