CommandBars

Программирование на Visual Basic for Applications
Tuco
Постоялец
Постоялец
 
Сообщения: 508
Зарегистрирован: 18.06.2003 (Ср) 16:37
Откуда: Подмосковье

CommandBars

Сообщение Tuco » 04.03.2004 (Чт) 14:33

Здравствуйте!
Делаю панель с кнопками. В обычных условиях всё работает, но когда я попытался сделать эту панель при загрузке - не хочет.
Код: Выделить всё
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


Вернее, панель он делает, но без кнопок...
Почему? Что делать?
"There's more than one way to do it!"

corgi
ToyMan
ToyMan
 
Сообщения: 1367
Зарегистрирован: 01.10.2002 (Вт) 9:59
Откуда: Россия, Москва

Сообщение corgi » 04.03.2004 (Чт) 15:21

а до выделенной это до какой :?:
Ничто так не ограничивает полёт мысли программиста, как компилятор

Tanya
Обычный пользователь
Обычный пользователь
 
Сообщения: 98
Зарегистрирован: 03.03.2004 (Ср) 21:41
Откуда: Беларусь, Минск

Попробуй написать

Сообщение Tanya » 04.03.2004 (Чт) 15:24

With Application.CommandBars("Testing")

вместо

With CommandBars("Testing")[/code]

Tuco
Постоялец
Постоялец
 
Сообщения: 508
Зарегистрирован: 18.06.2003 (Ср) 16:37
Откуда: Подмосковье

Сообщение Tuco » 04.03.2004 (Чт) 15:30

Спасибо большое! Теперь всё работает!
"There's more than one way to do it!"


Вернуться в VBA

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 12

    TopList