Тема: (Решено) Добавленная в контекстное меню кнопка дизаблится.
Вопрос по теме: http://wordexpert.ru/page/kak-dobavit-s … -word-2007
Я добавил пункт меню, как там описано.
Вот мой код, в нем две кнопки. Первая в коде - работает. Вторая - показывается серой (disabled). ID и Type второй пробовал разный, находил их у конкретных контролов и вставлял. Во всех случаях результат один - кнопка вставляется, но показывается серой (disabled) и соответственно - не работает.
В чем может быть ошибка?
Sub CreateMenuPopup()
Dim Button As CommandBarControl
Dim bar As CommandBar
Dim cbc As CommandBarControl
On Error GoTo Ex
Set bar = Application.CommandBars.Add(Name:="ContextBar", Position:=msoBarPopup, Temporary:=True)
With bar
Set Button = .Controls.Add(Type:=msoControlButton, ID:=850, Temporary:=True)
With Button
.FaceId = 9
.Caption = "Удалить подпись"
.OnAction = "SignatureManager.DeleteSignature"
End With
Set cbc = .FindControl(ID:=1728)
If Not cbc Is Nothing Then Exit Sub
Set cbc = .Controls.Add(Type:=4, ID:=1728, Parameter:="new", Before:=1, Temporary:=True)
Set cbc = Nothing
End With
bar.ShowPopup
Set bar = Nothing
Application.CommandBars("ContextBar").Delete
Ex:
End Sub
Отредактировано rizalut (03.02.2010 11:13:14)