Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
макрос для свертывания ленты Excel 2007
 
#1
26.07.2010 21:14:17
Здравствуйте.  
Возможно ли создать макрос для свертывания ленты Excel 2007, или создать условие, если лента свернута то действие не происходит (в смысле чтобы не развернуть ленту) если лента развернута, то происходит развертывание.
 
 
 
#2
26.07.2010 21:16:16
{quote}{login=segail}{date=26.07.2010 09:14}{thema=макрос для свертывания ленты Excel 2007}{post}Здравствуйте.  
Возможно ли создать макрос для свертывания ленты Excel 2007, или создать условие, если лента свернута то действие не происходит (в смысле чтобы не развернуть ленту) если лента развернута, то происходит свертывание.{/post}{/quote}
 
 
 
#3
26.07.2010 21:31:29
{quote}{login=segail}{date=26.07.2010 09:14}{thema=макрос для свертывания ленты Excel 2007}{post}... если лента свернута то действие не происходит (в смысле чтобы не развернуть ленту) если лента развернута, то происходит развертывание.{/post}{/quote}  
1. Для усвоения - "если мысль не идет в ногу с речью, то стоит думать чуть дольше, прежде чем молвить слово"...  
2. На дружбанском форуме вам ответили - "Все уже придумано до нас... Двойной клик ЛКМ по риббонам или на них ПКМ "Свернуть ленту"..."  
3. Заглянем в Правила и пример соответственный...  
Z.
 
 
 
#4
26.07.2010 21:35:09
Да я знаю что придумали. Макрос нужен. Если это выполняется только в ручную, тогда вопросов нет…
 
 
 
#5
26.07.2010 21:42:15
{quote}{login=Z}{date=26.07.2010 09:31}{thema=Re: макрос для свертывания ленты Excel 2007}{post}{quote}{login=segail}{date=26.07.2010 09:14}{thema=макрос для свертывания ленты Excel 2007}{post}... если лента свернута то действие не происходит (в смысле чтобы не развернуть ленту) если лента развернута, то происходит развертывание.{/post}{/quote}  
1. Для усвоения - "если мысль не идет в ногу с речью, то стоит думать чуть дольше, прежде чем молвить слово"...  
2. На дружбанском форуме вам ответили - "Все уже придумано до нас... Двойной клик ЛКМ по риббонам или на них ПКМ "Свернуть ленту"..."  
3. Заглянем в Правила и пример соответственный...  
Z.{/post}{/quote}  
EducatedFool предлагает данный макрос, но открытая форма VBA не дает выполнить его.  
И еще если изначально лента будет развернута, то данный макрос ее закроет, значит нужно условие.  
 
Sub Лента()  
   Application.SendKeys "^{F1}"  
End Sub
 
 
 
#6
26.07.2010 21:45:21
Извиняюсь, запутался.  
Если изначально лента будет свернута, то данный макрос ее раскроет, значит нужно условие.
 
 
 
#7
26.07.2010 22:35:54
Код ниже будет работать и из-под формы:  
 
' Спрятать  
Sub HideRibbon()  
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)"  
End Sub  
 
' Открыть  
Sub ShowRibbon()  
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",True)"  
End Sub
 
 
 
#8
26.07.2010 22:56:00
Я такой код применяю в одном из действий.  
Но возникла ситуация скрыть ленту, если она раскрыта…
 
 
 
#9
26.07.2010 23:00:54
{quote}{login=The_Prist}{date=26.07.2010 10:37}{thema=Re: }{post}{quote}{login=ZVI}{date=26.07.2010 10:35}{thema=}{post}Код ниже будет работать...{/post}{/quote}Я раньше :-)  
 
P.S. Наверное потому, что у меня строк меньше - лень имена процедурам давать было...{/post}{/quote}Заливал чай в чашку - потерял минуту :-)  
Вообще-то, решение уже приводилось раньше.  
 
Чтобы сказать что-нибудь новое, скажу, что в Excel 2007 есть спрятанная вкладка ленты (с т.з кода это панель), на которую можно программно вытащить все спрятанные меню предыдущей версии и даже контролы стандартной или иной панели от Excel-2003. Такая возможность следует из того, что поддерживается совместимость кода для предыдущих версий. Пару лет назад игрался с этим, но вряд ли теперь найду следы.
 
 
 
#10
26.07.2010 23:01:56
{quote}{login=segail}{date=26.07.2010 10:56}{thema=}{post}Я такой код применяю в одном из действий.  
Но возникла ситуация скрыть ленту, если она раскрыта…{/post}{/quote}  
Вызовите HideRibbon()
 
 
 
#11
26.07.2010 23:37:47
Вот пример для формы
 
 
 
#12
27.07.2010 01:59:16
{quote}{login=ZVI}{date=26.07.2010 11:00}{thema=Re: Re: }{post}Чтобы сказать что-нибудь новое, скажу, что в Excel 2007 есть спрятанная вкладка ленты (с т.з кода это панель), на которую можно программно вытащить все спрятанные меню предыдущей версии и даже контролы стандартной или иной панели от Excel-2003. Такая возможность следует из того, что поддерживается совместимость кода для предыдущих версий. Пару лет назад игрался с этим, но вряд ли теперь найду следы.{/post}{/quote}  
Приложил иллюстрацию к описанному выше. На вкладке "Надстройки" создается меню Excel 2003, а также добавляются страшненькие с виду, но добрые внутри кнопки панелей Excel 2003, состав которых можно оперативно менять из VBA.  
 
Может быть полезно тем, кто никак не отвыкнет от интерфейса меню Excel 2003
 
 
 
#13
27.07.2010 06:16:47
В познавательных целях  в виде надстройки приложил вариант с меню Excel-2003 и 2-мя панелями: "Стандартная" и "Форматирование", все на вкладке "Надстройки" ленты. Код открыт.
 
 
 
#14
27.07.2010 18:32:43
А если использовать код  
 
Sub HideRibbon()  
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" ‘Скрыть панель              
           Application.ScreenUpdating = False  
           Me.Hide            
           Sheets("Лист1").PrintPreview ‘Предворительный просмотр  
‘Открыть команду печать    
           'дальше код будет выполняться только после закрытия окна предварительного просмотра  
           Application.ScreenUpdating = True  
           Me.Show  
End Sub  
 
Возможно ли открыть только одну команду печать?
 
 
 
#15
27.07.2010 19:08:42
{quote}{login=segail}{date=27.07.2010 06:32}{thema=}{post}А если использовать код  
 
Sub HideRibbon()  
Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"",False)" ‘Скрыть панель              
           Application.ScreenUpdating = False  
           Me.Hide            
           Sheets("Лист1").PrintPreview ‘Предворительный просмотр  
‘Открыть команду печать    
           'дальше код будет выполняться только после закрытия окна предварительного просмотра  
           Application.ScreenUpdating = True  
           Me.Show  
End Sub  
 
Возможно ли открыть только одну команду печать?{/post}{/quote}  
Трудно отвечать на вопрос, который не понимаешь :-)  
 
Уточните, пожалуйста, следующее:  
1. Решена ли проблема, по которой изначально задавался вопрос про Ribbon?  
2. Зачем приведен пример кода?  
3. Что означает "открыть команду печать"?  
 
Если "открыть команду печать" означает программный вызов диалога печати, то делается это так:    
 
Sub Test()  
 Application.Dialogs(8).Show  
End Sub
 
 
 
Страницы: 1
Читают тему
Наверх