Отображение и размещение панелей инструментов

Отображение и размещение панелей инструментов

Для отображения или сокрытия панели инструментов предназначено свойство Visible. Приведенный ниже фрагмент кода отображает панель инструментов под названием VBA4 Dummies.

CommandBars("VBA4Dummies").Visible = True

Для сокрытия панели инструментов свойству Visible следует присвоить значение False.

Для переключения состояния отображения панели инструментов - отображения скрытой панели инструментов, и наоборот, следует использовать оператор Not (см. главу 11).

CommandBars("ReBar").Visible = _

Not (CommandBars("ReBar").Visible)

Если вы хотите изменить место расположения отображенной панели инструментов на экране, используйте такие ее свойства, как Position, RowIndex и Left. При необходимости используйте свойство Protection, чтобы исключить возможность перемещения панели инструментов пользователями. Подробные сведения о каждом из этих свойств приведены в следующей таблице.

Свойство

Назначение

Доступные настройки

Position

Определение того, прикреплена ли панель задач, и если так, определяется сторона, к которой она прикреплена

MsoBarFloating (для неприкрепленной панели инструментов), msoBarTop, msoBarLeft, msoBarRight

RowIndex

Определение порядка закрепления панели инструментов по отношению к другим панелям инструментов, прикрепленным к той же стороне

Целое число больше 0; msoBar RowFist или msoBar RowLast (длязакрепления панели инструментов первой или последней по порядку соответственно)

Left

Определяет расстояние от левого края панели инструментов до левого края экрана

Protection

Определяет способ защиты панели инструментов от действий пользователей

msoBarNoProtection, msoBarNoCustoraize, msoBarNoResize.

msoBarNoMove, msoBarNoChangeVisible, msoBarNoChangeDock, msoBarNoVerticalDock.

msoBarNoHorizonalDock