Несовместимость надстройки COM для Office2000 и Office XP
Это происходит только при стиле кнопки .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