ApplicationSettings.DrawingBackgroundColorGradient-Eigenschaft (Visio)

Artikel
04/07/2023

Bestimmt die Farbe des Hintergrundfarbverlaufs des Microsoft Visio-Zeichnungsfenster für die aktuelle Sitzung. Lese-/Schreibzugriff.

Syntax

Ausdruck. DrawingBackgroundColorGradient

Ausdruck Eine Variable, die ein ApplicationSettings-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, zeigt die Eigenschaftenfenster ein Dialogfeld für die Farbauswahl an, 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ß

Wenn Sie die BackgroundColorGradient-Eigenschaft des aktiven Fensters auf einen anderen Wert als den Standardwert (-1) festlegen, wird die DrawingBackgroundColorGradient-Einstellung für dieses Fenster außer Kraft gesetzt. Um die Hintergrundfarbfarbe desselben aktiven Fensters durch Festlegen der DrawingBackgroundColorGradient-Eigenschaft zurücksetzen zu können, müssen Sie BackgroundColorGradient auf den Standardwert -1 zurücksetzen. Wenn mehrere Fenster geöffnet sind, hat das Festlegen von BackgroundColorGradient für ein Fenster keine Auswirkungen auf die Einstellung für andere geöffnete Fenster.

Hinweis

Sie können zwei Farben für den Zeichenblatthintergrund angeben. Wenn die Bildschirmauflösung der Benutzer dafür geeignet ist, verläuft eine der Farben auf dem Bildschirm von oben nach unten in die andere Farbe. Damit dieses Feature verwendet werden kann, muss die Bildschirmanzeige auf 32-Bit-Farbe festgelegt sein. Wenn Benutzer im Modus für starke Kontraste arbeiten, ist die Möglichkeit zum programmgesteuerten Festlegen der Hintergrundfarbe für Zeichnungen eingeschränkt.

Beispiel

Mit dem folgenden VBA-Makro wird veranschaulicht, wie Sie mit der DrawingBackgroundColorGradient-Eigenschaft die Farbe des Hintergrundfarbverlaufs der Anwendung 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 DrawingBackgroundColorGradient-Eigenschaft und der Window.BackgroundColorGradient-Eigenschaft veranschaulicht. In diesem Beispiel wird davon ausgegangen, dass ein Zeichnungsfenster in Visio geöffnet ist und dass anfänglich alle Farbverlaufseigenschaften im Hintergrund auf ihre Standardwerte festgelegt sind.

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

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