| Вопрос: VBA в EXCEL | Добавлено: 08.09.08 12:14 |
Автор вопроса:  acidsting
|
|
Создал панель инструментов с кнопочкой. Помогите, пожалуйста, запустить форму при нажатии на эту кнопочку.
Делаю следующее: -1- Создаю UserForm с именем MainWindow Там пишу Public Sub UserForm_Initialize()
'Создаем панель инструментов Dim CBar2008 As CommandBar Set CBar2008 = CommandBars.Add("Ресторан", msoBarTop) CBar2008.Enabled = True CBar2008.Visible = True 'Создаем кнопку Dim But3 As CommandBarControl Set But3 = CBar2008.Controls.Add(msoControlButton) But3.Caption = "Запустить Программу" But3.FaceId = "7" But3.OnAction = "ЭтаКнига.ShowMainWindow" End Sub -2- В объекте "Эта книга" описываю функцию Public Sub ShowMainWindow()
'Запускаем основное окно программы MainWindow.Show End Sub Заранее благодарен. |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа:  mc-black ICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #1 | Добавлено: 08.09.08 13:00 |
|
А что, если без пафоса, просто вызвать глобальную процедуру, поможет?
But3.OnAction = "ShowMainWindow" Если не поможет, то тогда ещё напишите код ShowMainWindow в модуле. Так точно сработает. |
||
|
Номер ответа: 2 Автор ответа: mc-blackICQ: 308-534-060 Вопросов: 20 Ответов: 1860 |
Web-сайт: Профиль | | #2 | Добавлено: 08.09.08 13:01 |
Ну в смысле процедуру надо перенести в модуль, а не создать две одноименных процедуры, разумеется 
|
||
Страница: 1 |