свернуть развернуть ленту Excel - Microsoft Office Excel

segail · 26.07.2010, 19:57

Здравствуйте.
Подскажите, как свернуть развернуть ленту Excel кодом? Пробовал записать действие через макроредактор, данное действие не записывается.

EducatedFool · 26.07.2010, 20:05

А поиск по форуму вы до сих пор ненавидите?
http://programmersforum.ru/showpost....78&postcount=4

segail · 26.07.2010, 20:17

Я в смысле не убрать ленту, а свернуть, чтобы меню осталось (Excel 2007).

Volodshan · 26.07.2010, 21:22

Цитата:

Сообщение от segail

Я в смысле не убрать ленту, а свернуть, чтобы меню осталось (Excel 2007).

Все уже придумано до нас... Двойной клик ЛКМ по риббонам или на них ПКМ "Свернуть ленту"...

nilem · 26.07.2010, 21:46

Цитата:

Сообщение от segail

...не убрать ленту, а свернуть ...

Так попробуйте (имитация нажатия Ctrl+F1)
Application.SendKeys "^{F1}"
Это свернет ленту, а повторное выполнение развернет обратно.

segail · 26.07.2010, 21:55

Цитата:

Сообщение от nilem

а повторное выполнение развернет обратно.

В чем и проблема. А если лента изначально свернута вручную, то произойдет развертывание, это как раз и не желательно. Тем более открытая форма VBA не дает выполнить данный код.

аналитика · 26.07.2010, 22:09

Цитата:

Сообщение от segail

В чем и проблема. А если лента изначально свернута вручную, то произойдет развертывание, это как раз и не желательно. Тем более открытая форма VBA не дает выполнить данный код.

если лента свернута, то, да, произойдет разворачивание,
а тебе что нужно? чтобы ее еще сплющило?

segail · 26.07.2010, 22:20

Если она свернута то ни чего не происходит (например: при клике по кнопке CommandButton на UserForm), а если она развернута то происходит свертывание, при клике по той же кнопке.

аналитика · 26.07.2010, 22:27

а у меня с кнопки на форме не реагирует (Ctrl+F1 не действует) ни туда ни обратно...
у меня правда 10 офис

segail · 26.07.2010, 22:34

Я знаю что не реагирует, тут не обходима модальная форма, если я не ошибаюсь, но это тоже мне не подходит.

26.07.2010, 19:57	#1
segail Форумчанин Регистрация: 13.06.2009 Сообщений: 691	свернуть развернуть ленту Excel Здравствуйте. Подскажите, как свернуть развернуть ленту Excel кодом? Пробовал записать действие через макроредактор, данное действие не записывается.

26.07.2010, 20:05	#2
EducatedFool Программист VBA СуперМодератор Регистрация: 13.07.2008 Сообщений: 6,856	А поиск по форуму вы до сих пор ненавидите? http://programmersforum.ru/showpost....78&postcount=4 __Полезные надстройки для Excel. Парсинг сайтов и файлов. Макросы любой сложности на заказ. Мониторинг цен конкурентов

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Баг в цикле: программно развернуть - свернуть - восстановить окно	chandrasecar	Общие вопросы Delphi	23	02.12.2011 16:05
свернуть развернуть Книгу	segail	Microsoft Office Excel	3	23.03.2010 18:38
Как реанимировать D3DX8 после операции свернуть/развернуть	Swarog	Gamedev - cоздание игр: Unity, OpenGL, DirectX	6	29.01.2010 01:57
как свернуть и развернуть форму?	blackstersl	Общие вопросы Delphi	7	25.06.2009 09:20
Свернуть, развернуть, восстановить окно	chandrasecar	Win Api	1	15.10.2008 00:13

26.07.2010, 20:17	#3
segail Форумчанин Регистрация: 13.06.2009 Сообщений: 691	Я в смысле не убрать ленту, а свернуть, чтобы меню осталось (Excel 2007).

26.07.2010, 22:20	#8
segail Форумчанин Регистрация: 13.06.2009 Сообщений: 691	Если она свернута то ни чего не происходит (например: при клике по кнопке CommandButton на UserForm), а если она развернута то происходит свертывание, при клике по той же кнопке.

26.07.2010, 22:27	#9
аналитика Форумчанин Регистрация: 14.05.2009 Сообщений: 311	а у меня с кнопки на форме не реагирует (Ctrl+F1 не действует) ни туда ни обратно... у меня правда 10 офис

26.07.2010, 22:34	#10
segail Форумчанин Регистрация: 13.06.2009 Сообщений: 691	Я знаю что не реагирует, тут не обходима модальная форма, если я не ошибаюсь, но это тоже мне не подходит.