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

Статья
04/07/2023

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

Синтаксис

expression. DrawingBackgroundColorGradient

Выражение Переменная, представляющая объект 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	Белый

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

Примечание.

Для фона рисунка можно указать два цвета. Если разрешение экрана пользователей достаточное, один из цветов будет градуироваться на другой от верхней до нижней части экрана. Чтобы использовать эту функцию, пользователи должны настроить на мониторах 32-разрядный цвет. Возможность программного задания цвета фона для пользователей, работающих в режиме высокой контрастности, ограничена.

Пример

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

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

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

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

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