Добавляет команду на панель инструментов.

Применяется к:

ICommandBar

Синтаксис:

Visual Basic:

Function AddCommand(Command As Variant, Pos As Integer) As Boolean

Command - имя команды или её числовой идентификатор.

Pos - позиция команды на панели, нумерация с нуля.

Описание:

Команда задаётся именем или числовым идентификатором. И то, и другое даёт набор Commands объекта Zulu: имя возвращает свойство Name, идентификатор — свойство ID объекта ICommand. Сам объект ICommand метод в качестве аргумента не принимает и возвращает в этом случае False.

При успехе метод возвращает True. Добавленные команды появляются на панели не сразу: она перерисовывается при следующем вызове AddCommandBar.

Пример:

Visual Basic:

Sub ICommandBar_AddCommand
'Набор панелей инструментов
Set CB = Zulu.CommandBars
'Создаем свою панель
Set bar = CB.AddCommandBar("Моя панель", "Моя панель")
'Команда задается именем или числовым идентификатором
s = "По имени FileOpen: " & bar.AddCommand("FileOpen", 0) & vbCrLf
'57603 - идентификатор команды FileSave
s = s & "По идентификатору 57603: " & bar.AddCommand(57603, 1)
MsgBox s
End Sub

Python:

import zulu

def Macro_ICommandBar_AddCommand():
    # Набор панелей инструментов
    CB = zulu.App.CommandBars
    # Создаем свою панель
    bar = CB.AddCommandBar("Моя панель", "Моя панель")
    # Команда задается именем или числовым идентификатором
    print("По имени FileOpen:", bar.AddCommand("FileOpen", 0))
    # 57603 - идентификатор команды FileSave
    print("По идентификатору 57603:", bar.AddCommand(57603, 1))