Window.BackgroundColorGradient-Eigenschaft (Visio)

Artikel
01/17/2024

Bestimmt die Farbe für den Hintergrundfarbverlauf des aktiven Microsoft Visio-Zeichnungsfensters sowie der verknüpften Seitenansichts- und Vollbildfenster. Lese-/Schreibzugriff.

Syntax

Ausdruck. BackgroundColorGradient

Ausdruck Eine Variable, die ein Window-Objekt darstellt.

Rückgabewert

OLE_COLOR

Hinweise

Die folgenden Werte sind in Visio für eine OLE_COLOR-Eigenschaft gültig:

&H00 bbggrr, wobei bb der blaue Wert zwischen 0 und 0xFF (255) ist, gg den grünen Wert und rr den roten Wert.
&H800000 xx , wobei xx ein gültiger GetSysColor-Index ist.

Weitere Informationen zur GetSysColor-Funktion finden Sie im Microsoft Platform SDK auf MSDN nach " GetSysColor ".

Der Datentyp OLE_COLOR wird für Eigenschaften verwendet, die Farben zurückgeben. Wenn eine Eigenschaft als OLE_COLOR deklariert wird, wird im Fenster Eigenschaftenim Editor von Visual Basic ein Dialogfeld für die Farbauswahl angezeigt, in dem der Benutzer die Farbe für die Eigenschaft visuell auswählen kann, anstatt sich die numerische Entsprechung merken zu müssen.

Weiterhin können die folgenden VBA-Farbkonstanten (Microsoft Visual Basic für Applikationen) für den Datentyp OLE_COLOR verwendet werden.

Konstante	Wert	Beschreibung
vbBlack	0x0	Black
vbRed	0xff	Rot
vbGreen	0xFF00	Grün
vbYellow	0xffff	Gelb
vbBlue	0xFF0000	Blau
vbMagenta	0xFF00FF	Magenta
vbCyan	0xFFFF00	Cyan
vbWhite	0xFFFFFF	Weiß

Bei einem Zeichnungsfenster, einem Druckvorschaufenster oder einem Vollbildansichtsfenster setzt das Festlegen der BackgroundColorGradient-Eigenschaft des Fensters auf einen anderen Wert als den Standardwert (-1) die ApplicationSettings.DrawingBackgroundColorGradient-Einstellung für diesen Satz von Fenstern außer Kraft. Um diese Eigenschaft für denselben Satz von Fenstern zurücksetzen zu können, müssen Sie BackgroundColorGradient auf den Standardwert -1 zurücksetzen. Wenn mehrere Zeichnungen geöffnet sind, hat das Festlegen von BackgroundColorGradient für einen Satz von Fenstern keine Auswirkungen auf die Einstellung für andere geöffnete Fenstersätze.

Für ein ShapeSheet-Fenster hat das Festlegen der BackgroundColorGradient-Eigenschaft des Fensters auf einen anderen Wert als den Standard keine Auswirkungen, weder auf die Hintergrundfarbe des ShapeSheet-Fensters noch auf eine der anderen Fenstereinstellungen.

Beispiel

Mit dem folgenden VBA-Makro wird veranschaulicht, wie Sie mit der BackgroundColorGradient-Eigenschaft die Farbe des Hintergrundfarbverlaufs des aktiven Fensters abrufen und festlegen. Außerdem wird gezeigt, wie ein ApplicationSettings-Objekt aus dem Application-Objekt von Visio abgerufen wird, und es wird die Beziehung zwischen der BackgroundColorGradient-Eigenschaft und der ApplicationSettings.DrawingBackgroundColorGradient-Eigenschaft veranschaulicht. In diesem Beispiel wird davon ausgegangen, dass ein aktives Zeichnungsfenster in Visio geöffnet ist und dass anfänglich alle Farbverlaufseigenschaften im Hintergrund auf ihre Standardwerte festgelegt sind.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über