| Вопрос: Как добавить 2 кнопки в Excel при его открытии? | Добавлено: 07.08.07 10:05 |
Автор вопроса:  Andrew_nik
|
|
Есть вот такой код. Подскажите что нужно сделать чтобы 2 кнопки отображались в Excel при открытии приложения.
Option Explicit
Public Sub command() 'новая панель Dim mybar As CommandBar Dim MyControl As CommandBarButton Dim MyControl2 As CommandBarButton Set mybar = CommandBars.Add("New_bar", msoBarFloating, , True) 'или укажи существующую панель, если новая не нужна 'новая кнопка1 Set MyControl = mybar.Controls.Add(Type:=msoControlButton) With MyControl .FaceId = 25 .TooltipText = "текст подсказки" 'вызываемый макрос1 .OnAction = "M1" End With 'новая кнопка2 Set MyControl2 = mybar.Controls.Add(Type:=msoControlButton) With MyControl2 .Style = msoButtonIconAndCaption .FaceId = 20 .TooltipText = "текст подсказки2" 'вызываемый макрос2 .OnAction = "M2" End With mybar.Visible = True End Sub Sub M1() 'некий код... End Sub Sub M2() 'некий код... End Sub Public Sub Close1() CommandBars("New_bar").Delete End Sub |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа: Vilor Вопросов: 5 Ответов: 28 |
Профиль | | #1 | Добавлено: 15.08.07 18:04 |
|
Добавь в модуль "ЭтаКнига" книги personal.xls стандартные функции:
Private Sub Workbook_Open() Call command End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Call Close1 End Sub |
||
Страница: 1 |