Делопроизводство в кадровой службе. Фионова Л.Р - 46 стр.

     Пример создания панели инструментов пользователя приведены в
листинге фрагмента программы ниже:
     Private Sub Document_Open()
     ´Скрытие панели инструментов Стандартная, Форматирование
´и Формы при открытии документа

     With Application
     .CommandBars("Forms").Enabled = False
     .CommandBars("Standard").Enabled = False
     .CommandBars("Formatting").Enabled = False
     End With
     ´Создание новой панели инструментов с именем Документация
´отдела работы с кадрами, которая будет удаляться при закрытии
´приложения

     With Application.CommandBars.Add(Name:="Документация отдела
работы      с     кадрами", Position:=msoBarTop,   MenuBar:=False,
Temporary:=True)
     .Visible = True
     With .Controls
     ´Создание меню Прием

     With .Add(Type:=msoControlPopup, ID:=1, Before:=1)
       .Caption = "Прием"
       With .Controls
     ´Создание кнопки с текстом в меню Прием

       With .Add(Type:=msoControlButton, ID:=1, Before:=1)
       .Caption = "Штатное расписание"
       .OnAction = "штат_1"
       End With
       With .Add(Type:=msoControlButton, ID:=1, Before:=2)
       .Caption = "Приказ о приеме работника"



                                     46