Свойство Window.BackgroundColorGradient (Visio)

Статья
04/07/2023

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

Синтаксис

выражение. BackgroundColorGradient

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

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

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, в окне Свойстваредактора Visual Basic отображается диалоговое окно выбора цвета, позволяющее пользователю выбрать цвет свойства визуально, а не запоминать числовой эквивалент.

Кроме того, для 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), переопределяет параметр ApplicationSettings.DrawingBackgroundColorGradient для этого набора окон. Чтобы иметь возможность сбросить это свойство для того же набора окон, необходимо сбросить BackgroundColorGradient до значения по умолчанию - 1. Если открыто несколько рисунков, установка BackgroundColorGradient для одного набора окон не влияет на параметр для других открытых окон.

Однако для окна Таблицы фигур установка свойства BackgroundColorGradient окна значения, отличного от значения по умолчанию, не влияет ни на цвет фона окна Таблицы фигур, ни на любые другие параметры окна.

Пример

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

Public Sub BackgroundColorGradient_Example() 
 
 Dim vsoApplicationSettings As Visio.ApplicationSettings 
 Set vsoApplicationSettings = Visio.Application.Settings 
 
 'Get the current application background gradient color. 
 Debug.Print vsoApplicationSettings.DrawingBackgroundColorGradient 
 
 'Get the current window background color gradient. 
 Debug.Print ActiveWindow.BackgroundColorGradient 
 
 'Change the application background gradient color. 
 'This also changes the current 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 и обратная связь.

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