1 Тема от rizalut

  • rizalut
  • подполковник
  • Неактивен
  • Зарегистрирован: 05.01.2010
  • Сообщений: 108
  • Поблагодарили: 1

Тема: (Решено) Добавленная в контекстное меню кнопка дизаблится.

Вопрос по теме: 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)

2 Ответ от rizalut

  • rizalut
  • подполковник
  • Неактивен
  • Зарегистрирован: 05.01.2010
  • Сообщений: 108
  • Поблагодарили: 1

Re: (Решено) Добавленная в контекстное меню кнопка дизаблится.

Вопрос снят.
Дизаблятся кнопки, как выяснилось, при клике на контенте внутри ContentControl, в котором запрещено редактирование.