Propriété ApplicationSettings.DrawingBackgroundColorGradient (Visio)

Article
04/07/2023

Détermine la couleur de dégradé de l’arrière-plan de la fenêtre de dessin de Microsoft Visio pour la session active. Lecture-écriture.

Syntaxe

expression. DrawingBackgroundColorGradient

Expression Variable qui représente un objet ApplicationSettings .

Valeur renvoyée

OLE_COLOR

Remarques

Les valeurs valides pour une propriété OLE_COLOR dans Visio peuvent être une des suivantes :

&H00 bbggrr, où bb est la valeur bleue comprise entre 0 et 0xFF (255), gg la valeur verte et rr la valeur rouge.
&H800000 xx , où xx est un index GetSysColor valide.

Pour plus d’informations sur la fonction GetSysColor , recherchez « GetSysColor » dans microsoft Platform SDK sur MSDN.

Le type de données OLE_COLOR est utilisé pour les propriétés qui renvoient des couleurs. Lorsqu’une propriété est déclarée comme OLE_COLOR, la Fenêtre Propriétés affiche une boîte de dialogue de sélecteur de couleurs qui permet à l’utilisateur de sélectionner visuellement la couleur de la propriété, au lieu d’avoir à mémoriser l’équivalent numérique.

En outre, vous pouvez utiliser les constantes de couleur Microsoft Visual Basic pour Applications (VBA) suivantes pour OLE_COLOR.

Constante	Valeur	Description
vbBlack	0x0	Noir
vbRed	0xff	Rouge
vbGreen	0xFF00	Vert
vbYellow	0xFFFF	Jaune
vbBlue	0xFF0000	Bleu
vbMagenta	0xFF00FF	Magenta
vbCyan	0xFFFF00	Cyan
vbWhite	0xFFFFFF	Blanc

Définir la propriété BackgroundColorGradient de la fenêtre active en attribuant une valeur autre que celle par défaut (-1) substitue le paramètre DrawingBackgroundColorGradient pour cette fenêtre. Pour pouvoir réinitialiser la couleur de dégradé d’arrière-plan de la même fenêtre active en définissant la propriété DrawingBackgroundColorGradient , vous devez rétablir la valeur par défaut de BackgroundColorGradient , -1. Si plusieurs fenêtres sont ouvertes, définir BackgroundColorGradient pour une fenêtre n’a pas d’effet sur les paramètres des autres fenêtres ouvertes.

Remarque

Vous pouvez spécifier deux couleurs pour l'arrière-plan du dessin. Si la résolution d'écran des utilisateurs est adéquate, l'une des couleurs formera un dégradé avec l'autre, du haut vers le bas de l'écran. Pour pouvoir utiliser cette fonction, les utilisateurs doivent définir l'affichage de leurs moniteurs sur couleur 32 bits. La possibilité de définir par un programme la couleur d'arrière-plan du dessin pour les utilisateurs qui utilisent le mode de contraste élevé est limitée.

Exemple

La macro VBA suivante indique comment utiliser la propriété DrawingBackgroundColorGradient afin de récupérer et définir la couleur de dégradé de l'arrière-plan de l'application. Il montre également comment obtenir un objet ApplicationSettings à partir de l’objet Application Visio et illustre la relation entre la propriété DrawingBackgroundColorGradient et la propriété Window.BackgroundColorGradient . Cet exemple suppose qu’une fenêtre de dessin est ouverte dans Visio et que toutes les propriétés de couleur de dégradé d’arrière-plan sont initialement définies sur leurs valeurs par défaut.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via