Вопросы по макросам MS Word
От: kondrik  
Дата: 12.01.14 12:24
Оценка:
Хочу через макрос создать ToolBar, но не знаю как правильно проверить создан ли необходимый ToolBar.

Пример кода:

Private Const TOOLBARNAME = "MyToolbar"

'где-то внутрях
    Application.CommandBars.Add TOOLBARNAME
    AddButton "Button caption", "This is a tooltip", 526, "NameOfASubInYourVBACode"
    ' call AddButton more times for more buttons '
    With Application.CommandBars(TOOLBARNAME)
        .Visible = True
        .Position = msoBarTop
    End With

Private Sub AddButton(caption As String, tooltip As String, faceId As Long, methodName As String)
Dim Btn As CommandBarButton
    Set Btn = Application.CommandBars(TOOLBARNAME).Controls.Add
    With Btn
        .Style = msoButtonIcon
        .faceId = faceId
        .OnAction = methodName
        .TooltipText = tooltip
    End With
End Sub


Как правильно выполнить предварительные проверки?
.
 
Подождите ...
Wait...
Пока на собственное сообщение не было ответов, его можно удалить.