Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Закрытая тема
Ваша тема закрыта, почему это могло произойти? Возможно,
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу.
Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста".
Название темы слишком короткое или не отражает сути вашего вопроса.
Тема исчерпала себя, помните, один вопрос - одна тема
Прочитайте правила и заново правильно создайте тему.
 
Опции темы Поиск в этой теме
Старый 20.09.2007, 13:04   #1
Altiy
Новичок
Джуниор
 
Регистрация: 20.09.2007
Сообщений: 2
По умолчанию Меню Excel

Привет,

Кто-нибудь знает как спрятать/показать меню Excel?
Спасибо
Altiy вне форума
Старый 20.09.2007, 14:35   #2
pashulka
Форумчанин
 
Регистрация: 03.11.2006
Сообщений: 524
По умолчанию

А что Вы вкладываете в понятие меню ?
pashulka вне форума
Старый 22.09.2007, 13:04   #3
Altiy
Новичок
Джуниор
 
Регистрация: 20.09.2007
Сообщений: 2
По умолчанию Меню

Именно меню и панель инструментов, расположенные, как правило,в верхней части окна Excel
Altiy вне форума
Старый 22.09.2007, 18:30   #4
pashulka
Форумчанин
 
Регистрация: 03.11.2006
Сообщений: 524
По умолчанию

В верхней части окна приложения наличествует заголовок окна, иногда называемое строка заголовка (окна) и системное меню, которое можно вызвать, если воспользоваться правой кнопкой мышки. Работа с этим меню, в частности удаление, осуществляется с помощью функций WinAPI. Затем, как правило, следует основная панель инструментов "Строка меню листа", эта панель позволяет получить доступ к различным меню, типа, Файл, Правка, Вид и т.д. причём, эти меню, на самом деле, также являются панелями инструментов (CommandBarPopup), именно поэтому, я и поинтересовался о каких меню идёт речь.В общем, если Вы хотите осуществить программный доступ к этим панелям инструментов, то воспользуйтесь семейством CommandBars (далее приведён пример, позволяющий скрыть скрыть первое меню, как правило, это "Файл" и первую панель инструментов, это всегда "Строка меню листа")
Код:
Application.CommandBars(1).Controls(1).Visible = False
Код:
Application.CommandBars(1).Enabled = True
Если же Вы хотите вручную скрыть уже неоднократно упомянутую панель инструментов, а также меню, то, например, в меню Сервис выберите команду Настройка. В появившемся стандартном диалоговом окне уберите флажок напротив ненужной панели, а для того, чтобы "скрыть" ненужное меню, подведите курсор мышки к меню, кликните правой кнопкой мышки в появившемся контекстном меню выберите команду Удалить (или подведите курсор мышки к меню, кликните левой кнопкой мышки, и не отпуская кнопку, переместите курсор мышки к ячейкам рабочего листа)
pashulka вне форума
Старый 24.09.2007, 09:46   #5
madmot
Форумчанин
 
Регистрация: 04.09.2007
Сообщений: 155
По умолчанию

Дополню ответ мною уважаемого pashulka

' Закрывает все панели инструментов
Sub CmdBar_Close()
Dim CmdBar As CommandBar
For Each CmdBar In CommandBars
If CmdBar.Enabled = True Then
CmdBar.Enabled = False
End If
Next
End Sub

а также:

'Прячем все
Sub All_other_Close()
'убрать строку формул
Application.DisplayFormulaBar = False
With ActiveWindow
'убрать заголовки
.DisplayHeadings = False
'убрать аутлайны
.DisplayOutline = False
'не знаю что такое зерос но тоже убрать
.DisplayZeros = False
'горизонтальные полосы прокрутки
.DisplayHorizontalScrollBar = False
'вертикальные полосы прокрутки
.DisplayVerticalScrollBar = False
'закладки рабочих листов
.DisplayWorkbookTabs = False
'и в конце концов сетку с экрана
.DisplayGridlines = False
End With
End Sub

соответственно восстановить обратно - заменить False на True
madmot вне форума
Старый 24.09.2007, 14:04   #6
pashulka
Форумчанин
 
Регистрация: 03.11.2006
Сообщений: 524
По умолчанию

Что ж, рассмотрим, что нам пытаются всучить под видом так называемого "дополнения"

Вопрос был задан следующий :

Кто-нибудь знает как спрятать/показать меню Excel, т.е. меню и панель инструментов, которые расположены, как правило, в верхней части окна.

Возьмём первую часть дополнения : совершенно очевидно, что раз автор собирается работать с меню, то скрывать все панели инструментов не имеет смысла, кроме того, речь идёт не о всех панелях, а только о тех, что расположены в верхней части окна.

Да, и к панелям инструментов не применим термин закрыть, по причине, отсутствия у них свойства/метода Close. Здесь, пожалуй, можно было добавить, что некоторые панели, например "Стандартная", "Форматирование" можно скрыть использовав свойство Visible = False. Однако, для скрытия панели инструментов "Строка меню листа", а именно эта панель и расположена в верхней части окна и содержит меню, свойство Visible неприменимо, именно поэтому я и использовал свойство Enabled.

P.S. на некоторых машинах CommandBars возвращает Nothing, что соответственно вызывает ошибку, которую можно предотвратить, если явно указать родителя, т.е. Application.CommandBars.

Что касается второго примера, то здесь нет слов, с таким успехом можно было "дополнить" и примером, который скрывает строку состояния или даже меняет текст строки состояния, правда ни строка состояния, ни строка формул не имеют никакого отношения к панелям инструментов, но ведь это и не важно. Ещё более нужным дополнением к вопросу о скрытии меню - является скрытие сетки и нулевых значений, которые, почему-то, имеют самое прямое отношение к поставленному вопросу.

Последний раз редактировалось pashulka; 24.09.2007 в 14:07.
pashulka вне форума
Старый 24.09.2007, 14:13   #7
madmot
Форумчанин
 
Регистрация: 04.09.2007
Сообщений: 155
По умолчанию

Для pashulka
Искренне раскаиваюсь. Да, не в тему и не посуществу заданного вопроса
Из Ваших ответов впору учебник составлять.
Еще раз сорри.
madmot вне форума
Закрытая тема


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Excel.Пользовательское меню. Помогите сделать. susanin15 Microsoft Office Excel 2 10.06.2008 22:57
Всплывающие меню в Excel bibikin_the_1st Microsoft Office Excel 1 18.12.2007 05:06
очень громоздкие финансовые модели в Excel, а Excel не тянет Ragazza Microsoft Office Excel 7 03.10.2007 20:08
Формирование из excel в ASCII, у меня он формирует по одному клиенту а в Excel нескол Askat Общие вопросы Delphi 0 18.07.2007 06:28
Как вытащить данные из Excel в бд dephi, а потом (после работы с данными) сформировать новый файл excel. Геля БД в Delphi 1 10.04.2007 15:11