Свойство ApplicationSettings.DrawingBackgroundColor (Visio)

Статья
04/07/2023

Определяет цвет фона окна рисования Microsoft Visio для текущего сеанса. Для чтения и записи.

Синтаксис

expression. DrawingBackgroundColor

Выражение Переменная, представляющая объект ApplicationSettings .

Возвращаемое значение

OLE_COLOR

Замечания

Допустимые значения свойства OLE_COLOR в Visio могут иметь одно из следующих значений:

&H00 bbggrr, где bb — это синее значение от 0 до 0xFF (255), gg — зеленое значение, а rr — красное.
&H800000 xx , где xx — допустимый индекс GetSysColor .

Дополнительные сведения о функции GetSysColor можно найти по запросу GetSysColor в пакете SDK платформы Майкрософт на сайте MSDN.

Тип данных OLE_COLOR используется для свойств, возвращающих цвета. Если свойство объявляется как OLE_COLOR, окно свойств отображает диалоговое окно выбора цвета, которое позволяет пользователю визуально выбрать цвет свойства, а не запоминать числовой эквивалент.

Кроме того, для OLE_COLOR можно использовать следующие цветовые константы Microsoft Visual Basic для приложений (VBA).

Константа	Значение	Описание
vbBlack	0x0	Черный
vbRed	0xff	Красный
vbGreen	0xFF00	Зеленый
vbYellow	0xffff	Желтый
vbBlue	0xFF0000	Синий
vbMagenta	0xFF00FF	Пурпурный
vbCyan	0xFFFF00	Cyan
vbWhite	0xFFFFFF	Белый

Если для свойства BackgroundColor активного окна задано значение, отличное от значения по умолчанию (-1), параметр DrawingBackgroundColor для этого окна переопределяется. Чтобы можно было сбросить цвет фона того же активного окна, задав свойство DrawingBackgroundColor , необходимо сбросить значение BackgroundColor по умолчанию , -1. Если открыто несколько окон, параметр BackgroundColor для одного окна не влияет на параметр для других открытых окон.

Примечание.

Возможность программного задания цвета фона для пользователей, работающих в режиме высокой контрастности, ограничена.

Пример

В следующем макросе VBA показано, как использовать свойство DrawingBackgroundColor для получения и задания цвета фона приложения. Здесь также показано, как получить объект ApplicationSettings из объекта Visio Application , а также показана связь между свойством DrawingBackgroundColor и свойством Window.BackgroundColor . В этом примере предполагается, что в Visio открыто окно рисования, и изначально для всех свойств цвета фона заданы значения по умолчанию.

Public Sub DrawingBackgroundColor_Example() 
 
 Dim vsoApplicationSettings As Visio.ApplicationSettings 
 Set vsoApplicationSettings = Visio.Application.Settings 
 
 'Get the current application background color. 
 Debug.Print vsoApplicationSettings.DrawingBackgroundColor 
 
 'Get the active window background color. 
 Debug.Print ActiveWindow.BackgroundColor 
 
 'Change the application background color. 
 'This will also change the active window color as 
 'well as the setting in the Color Settings dialog box 
 vsoApplicationSettings.DrawingBackgroundColor = vbRed 
 
 'Change the active window background color. 
 ActiveWindow.BackgroundColor = vbMagenta 
 
 'Change the application background color again. 
 'This time, there is no change in the current 
 'window color, but the dialog box setting changes. 
 vsoApplicationSettings.DrawingBackgroundColor = vbYellow 
 
 'Reset Window.BackgroundColor to its default value. 
 ActiveWindow.BackgroundColor = -1 
 
 'Change the application background color again. 
 'Now both the active window color 
 'and the dialog box setting change. 
 vsoApplicationSettings.DrawingBackgroundColor = vbBlue 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через