Версия для печати темы

Нажмите сюда для просмотра этой темы в оригинальном формате

WinCity.Ru _ Microsoft/Office Excel _ Создание меню в Excel 2002

Автор: mokc0der Вторник, 19 Августа 2003, 15:21

Как КОРРЕКТНО создать меню в Excel 2002. Я по "старинке" использую стиль Excel 97 так:
Код

With Application
.MenuBars.Add (menuName)

.MenuBars(menuName).Menus.Add "&меню 1"
.MenuBars(menuName).Menus.Add "&меню 2"
.MenuBars(menuName).Menus.Add "&меню 3"
.MenuBars(menuName).Menus.Add "&?"

.MenuBars(menuName).Menus(1).MenuItems.Add "&Сохранить", "SaveData"
.MenuBars(menuName).Menus(1).MenuItems.Add "&Открыть", "OpenData"
...

Все прекрасно работает, но уж больно хочется использовать современные возможности. Насколько я знаю в 2002 для данных целей используется CommandBars примерно так
Код

Set oldMbar = Application.CommandBars.ActiveMenuBar ' сохраняем Excel меню

Set newMbar = Application.CommandBars.Add(Name:="newMenubar", Position:=msoBarTop, MenuBar:=True, temporary:=True)
' создаем свое
With newMbar
.Visible = True
.Protection = msoBarNoMove
end with

Так оно создается. Но КАК добавить в это пустое меню свои элементы и асоциировать с ними макросы ?

Автор: Gluzer Четверг, 21 Августа 2003, 7:43

Я делаю так:
создаю макрос, с привязкой его к вновь созданной кнопке на панели инструментов.
беру новое меню, перетаскиваю его на панель.
после перетаскиваю в него созданную кнопку

Автор: mokc0der Четверг, 21 Августа 2003, 10:18

Я уже разобрался методом проб и ошибок. Результат весьма порадовал. Появилась возможность создавать в меню значки, combobox и еще куча прочих "вкусностей". Если надо кому, могу описать и дать пример.

Автор: Админ Четверг, 21 Августа 2003, 18:39

mokc0der, будь добр, кинь примерчик на мэйл или прикрепи к этой теме аттач. Буду очень признателен.

Автор: mokc0der Четверг, 21 Августа 2003, 21:05

Примерчик в attach. Буду рад ответить на какие-либо вопросы

Присоединённые файлы
CreateMenu.rar ( 0байт ) Кол-во скачиваний: 462

Автор: Rubinus Среда, 03 Ноября 2004, 21:13

mokc0der, не мог бы ты дать пример меню которая состоит из Файл, Правка, Справка и чтобы все действия внутри этих Меню были в точности как и в Excel, а что-то у меня не получается.

Автор: Gluzer Среда, 03 Ноября 2004, 23:20

Rubinus, а что конкретно не получается?

Автор: pashulka Четверг, 04 Ноября 2004, 2:33

А почему не создать один раз панель вручную и в дальнейнем пользоваться именно этой панелью ???

Автор: mokc0der Четверг, 04 Ноября 2004, 8:48

Rubinus, что конкретно не получается ? приведи код

Автор: Rubinus Суббота, 06 Ноября 2004, 14:07

Я скачал пример который выложил mokc0der, посмотрел он там слишком мало только названия и все, а хотелось бы посмотреть полный рабочий код меню чтобы можно было открывать, сохранять файлы, в общем посмотреть полный код.