[an error occurred while processing this directive]

Public Function funCreateMenuControls(strMenu As String) As Boolean


Dim but As CommandBarButton

   

    'Добавляем первую кнопку

    Set but = appAccess.CommandBars(strMenu).Controls.Add(msoControlButton)

    With but

        .BeginGroup = True 'Начинаем размещение с начала группы

        .FaceId = 1 'Устанавливаем код кнопки

        .Style = msoButtonCaption 'Выбираем стандартный тип

        .Caption = "Справка" 'Называем кнопку

        .OnAction = "funCreateNewHelp" 'Определяем программу справки

    End With

    'Добавляем вторую кнопку

    Set but = appAccess.CommandBars(strMenu).Controls.Add(msoControlButton)

    With but

        .Caption = "Помощник" 'Называем кнопку

        .Style = msoButtonCaption 'Выбираем стандартный тип

        .FaceId = 2 'Устанавливаем код кнопки

        .OnAction = "funCreateAssistant" 'Определяем программу помощника

    End With

    funCreateMenuControls = True 'Возвращаем результат



Содержание раздела