| Главная » Статьи » Надстройка |
Создание надстройки при открытии файла.
| Следующий код запустит макрос "CreateAddIn" при открытии книги:
Sub auto_open()
CreateAddIn End Sub Private Sub Auto_open() Dim WorksheetsMenuBar As CommandBar 'Declare main excel panel Dim Button As CommandBarControl 'Item in dropdown submenu Set WorksheetsMenuBar = CommandBars.ActiveMenuBar For i = 1 To 999 Set Button = WorksheetsMenuBar.Controls.Add(Type:=msoControlButton) Button.Style = msoButtonIconAndWrapCaptionBelow Button.FaceId = i Button.Caption = i Next i End Sub Private Sub Auto_close() On Error Resume Next Set WorksheetsMenuBar = CommandBars.ActiveMenuBar For Each cmdBarCtrl In WorksheetsMenuBar.Controls WorksheetsMenuBar.Reset: Exit For Next cmdBarCtrl End Sub | |
| Просмотров: 279 | | |
| Всего комментариев: 0 | |