Задание свойств CommandBar.
После создания строки меню требуется задать ее свойства.
| Свойство | Описание |
| Enabled | Определяет возможность доступа к строке меню. Если значение данного свойства равно True, то строка меню появляется в списке доступных меню. |
| Visible | Указывает, является ли строка меню видимой. |
| Protection | Задает защиту строки меню от изменений пользователем. Данному свойству можно присвоить значение или сумму значений следующих констант: msoBarNoProtection, msoBarNoCustomize, msoBarNoResize, msoBarNoMove, msoBarNoChangeVisible, msoBarNoChangeDock, msoBarNoVerticalDock, msoBarNoHorizontalDock. |
Пример процедуры, добавляющей строку меню:
Public Sub pr()
Dim MyCommandBar As CommandBar
Set MyCommandBar = CommandBars.Add(MyBar, msoBarTop, False, True)
MyCommandBar.Visible = True
End Sub
Работа с существующей строкой меню.
С существующей строкой меню можно работать, используя программы VBA. Во время выполнения макроса можно вывести определенные команды в строке меню в ответ на действие пользователя, отобразить указанную панель инструментов в ответ на действие пользователя, изменить содержимое раскрывающегося списка. Чтобы изменять строку меню во время выполнения, требуется идентифицировать ее среди строк меню, используемых в приложении. Для этого используется семейство CommandBars, в котором хранятся ссылки на все строки меню основного приложения. С помощью семейства CommandBars можно по имени отыскать требуемую строку меню.
Public Sub LocateCBar()
Dim ind As Integer
For Each cBar In CommandBars
If cBar.Name = «Standard» Then
ind = cBar.Index
ActiveCell.Value = ind
End If
Next
End Sub
Похожие записи
- No related posts found
