Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Почтовая рассылка

Подписчиков: -1
Последний выпуск: 19.06.2015

Несовместимость надстройки COM для Office2000 и Office XP

10K
02 апреля 2005 года
Kroc
1 / / 02.04.2005
В моей надстройке нужно воткнуть свою кнопку на панель инструментов. Надстройка работает в WinXP/OfficeXP. В Win98/Office2000 - при подключении надстройки Оффис матерится и закрывается.
Это происходит только при стиле кнопки .Style = msoButtonIcon.
Если я применяю .Style = msoButtonCaption то всё работает в обоих случаях.
Как обойти грабли???
Часть кода, где описана кнопка:

Private Sub IDTExtensibility2_OnStartupComplete(custom() As Variant)
Dim oCommandBars As Office.CommandBars
Dim oStandardBar As Office.CommandBar
Dim picPicture As IPictureDisp
Set picPicture = LoadResPicture(305, 0)
On Error Resume Next
Set oCommandBars = oHostApp.CommandBars
Set oStandardBar = oCommandBars.Item("Standard")
Set btnMy = oStandardBar.Controls.Item("Мой батон")
If btnMy Is Nothing Then
Set btnMy = oStandardBar.Controls.Add(1)
With btnMy
.Style = msoButtonIcon
.Picture = picPicture
.Tag = "btnMy"
.OnAction = "!<MyAddin.Connect>"
.Visible = True
End With
End If
Set oStandardBar = Nothing
Set oCommandBars = Nothing
End Sub
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог