|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
15.06.2012, 19:20 | #1 |
Новичок
Джуниор
Регистрация: 28.04.2010
Сообщений: 2
|
Создание собственного меню в Excel и добавление действий к ним
вот есть код Создание и Удаление Меню нужно чтобы при нажатии на Содержание выводилось окно сообщения с информацией о разработчике ( к примеру фамилия) Sub Delete_Menu() On Error Resume Next CommandBars(1).Controls("Мои итоги").Delete On Error GoTo 0 End Sub Sub AddNewMenu() Dim NewMenu As CommandBarPopup Dim NMenuItem As CommandBarButton Dim PodMenu As CommandBarPopup Call Delete_Menu Set NewMenu = CommandBars(1).Controls.Add(Type:=m soControlPopup) NewMenu.Caption = "Мои итоги" Set NMenuItem = NewMenu.Controls.Add(Type:=msoContr olButton) With NMenuItem .Caption = "Мастер" .FaceId = 69 End With Set NMenuItem = NewMenu.Controls.Add(Type:=msoContr olButton) With NMenuItem .Caption = "Диаграмма..." .FaceId = 435 End With Set PodMenu = NewMenu.Controls.Add(Type:=msoContr olPopup) With PodMenu .Caption = "Справка" End With Set NMenuItem = PodMenu.Controls.Add(Type:=msoContr olButton) With NMenuItem .Caption = "Содержание" .FaceId = 575 End With Set NMenuItem = PodMenu.Controls.Add(Type:=msoContr olButton) With NMenuItem .Caption = "Ресурсы" .FaceId = 592 End With End Sub |
15.06.2012, 20:33 | #2 |
Старожил
Регистрация: 11.05.2010
Сообщений: 5,166
|
А при нажатии на другие "разделы"?
2 варианта: Код:
webmoney: E265281470651 Z422237915069 R418926282008
Последний раз редактировалось Hugo121; 15.06.2012 в 20:41. |
17.06.2012, 11:05 | #3 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Поглядите это:
Создание панели инструментов для надстройки http://excelvba.ru/tools/CommandBar Форма "О программе..." с гиперссылкой и бегущей строкой http://excelvba.ru/code/frmAbout |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Создание собственного 3d движка | ZvEr_HaCkEr | Gamedev - cоздание игр: Unity, OpenGL, DirectX | 16 | 03.12.2011 13:16 |
Удаление ленты в 2007 excel и создание своего меню | Raikhman | Microsoft Office Excel | 2 | 19.10.2010 00:18 |
создание собственного компонента | МаксимШ | Компоненты Delphi | 5 | 08.06.2010 14:11 |
Создание собственного компонента | Леха207 | Помощь студентам | 1 | 03.07.2007 12:45 |