Решил.
Код:
Public Sub BuildMenuItemAndMenu()
Const pth = "c:\Users\vin1\Pictures\accordion.bmp"
Dim picPicture As IPictureDisp
Dim cbrCommandBar As CommandBar
Dim cbbCommandBarButton As Office.CommandBarButton
Const NameBar = "Ñõåìû ñâÿçè"
On Error Resume Next
Set cbrCommandBar = Application.CommandBars(NameBar)
On Error GoTo 0
If Not cbrCommandBar Is Nothing Then
cbrCommandBar.Delete
End If
Set cbrCommandBar = Application.CommandBars.Add(NameBar, msoBarTop)
Set cbbCommandBarButton = cbrCommandBar.Controls.Add(Type:=msoControlButton)
With cbbCommandBarButton
.Caption = "Ñèíèé"
.TooltipText = "Ñèíèé - ðåçåðâíûé êàíàíàë"
.Tag = "ñèíèé"
.FaceID = 0
.Style = msoButtonIconAndCaption
.OnAction = "ThisDocument.MyMacro"
End With
Set picPicture = stdole.StdFunctions.LoadPicture(pth)
cbbCommandBarButton.Picture = picPicture
cbrCommandBar.Visible = True
End Sub
Public Sub MyMacro()
MsgBox "Hello!"
End Sub