Добро пожаловать в форум, Guest  >>   Войти | Регистрация | Поиск | Правила | В избранное | Подписаться
Все форумы / Microsoft Access Новый топик    Ответить
 Программно скрыть ленту меню (Ribbon)  [new]
drummer84
Member

Откуда: Москва
Сообщений: 388
Поиском пользовался не нашел.
Нужно не удалить меню а скрыть, тоже самое что происходит если дважды кликнуть по одному из названий блоков меню.
Нашел как это делается в Excel, помогите разобраться как это сделать в Access 2007.
Пример Excel.
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", False)"
29 июн 11, 13:34    [10892679]     Ответить | Цитировать Сообщить модератору
 Re: Программно скрыть ленту меню (Ribbon)  [new]
askerli
Member

Откуда: Баку
Сообщений: 602
говорят, что можно так...
Sub hide_unhide_Ribbons()
Application.SendKeys ("^{F1}")
End Sub
потому что она скрывается по комбинации ctrl-F1
29 июн 11, 13:38    [10892717]     Ответить | Цитировать Сообщить модератору
 Re: Программно скрыть ленту меню (Ribbon)  [new]
drummer84
Member

Откуда: Москва
Сообщений: 388
Спасибо! а про Excel я наврал, это функция не скрывает а удаляет меню.
29 июн 11, 13:45    [10892771]     Ответить | Цитировать Сообщить модератору
 Re: Программно скрыть ленту меню (Ribbon)  [new]
askerli
Member

Откуда: Баку
Сообщений: 602
а еще так

Sub HideRibbon()
DoCmd.ShowToolbar "Ribbon", acToolbarNo
End Sub

Sub ShowRibbon()
DoCmd.ShowToolbar "Ribbon", acToolbarYes
End Sub
29 июн 11, 13:54    [10892847]     Ответить | Цитировать Сообщить модератору
 Re: Программно скрыть ленту меню (Ribbon)  [new]
drummer84
Member

Откуда: Москва
Сообщений: 388
askerli,
Так получается что меню совсем пропадает.

У меня теперь другая проблема. При загрузке акцесса, открывается форма, вешал
SendKeys ("^{F1}")
на открытие формы, но оно не срабатывает. Хотя если форму закрыть и за ново открыть , все гуд, работает. Как победить ?
29 июн 11, 14:11    [10892996]     Ответить | Цитировать Сообщить модератору
 Re: Программно скрыть ленту меню (Ribbon)  [new]
mds_world
Member

Откуда: Ташкент
Сообщений: 27522
DoEvents
SendKeys ("^{F1}")
29 июн 11, 23:35    [10896288]     Ответить | Цитировать Сообщить модератору
Между сообщениями интервал более 1 года.
 Re: Программно скрыть ленту меню (Ribbon)  [new]
Вакшуль Сергей
Member

Откуда: Харьков
Сообщений: 393
drummer84,

Свернуть/развернуть ленту:
CommandBars.ExecuteMso "MinimizeRibbon"

Узнать состояние ленты(свернута/развернута):
?(CommandBars("Ribbon").Controls(1).Height < 100)

http://www.accessribbon.de/en/index.php?FAQ:19
14 фев 17, 00:15    [20209500]     Ответить | Цитировать Сообщить модератору
Все форумы / Microsoft Access Ответить