Делаю панель с кнопками. В обычных условиях всё работает, но когда я попытался сделать эту панель при загрузке - не хочет.
- Код: Выделить всё
Private Sub Workbook_Open()
Dim mButton, mButton1
Application.CommandBars.Add "Testing", MenuBar:=False, Position:=msoBarFloating, temporary:=True
Application.CommandBars("Testing").Visible = True
With CommandBars("Testing") ' вот здесь останавливается и говорит об ошибке!!!
Set mButton = .Controls.Add(Type:=msoControlButton)
With mButton
.Caption = "Unload"
.OnAction = "testDeleting"
.Style = msoButtonIconAndCaption
End With
Set mButton1 = .Controls.Add(Type:=msoControlButton)
With mButton1
.Caption = "Response"
.OnAction = "response"
.Style = msoButtonIconAndCaption
End With
End With
End Sub
Доходит до выделенной строки и говорит
Run-time error '91'
Object variable or With block variable not set
Вернее, панель он делает, но без кнопок...
Почему? Что делать?
