Propriété Window.BackgroundColorGradient (Visio)

  • Article

Détermine la couleur du dégradé d’arrière-plan de la fenêtre de dessin Microsoft Visio active et les fenêtres d’affichage plein écran et d’aperçu avant impression associées. Lecture-écriture.

Syntaxe

expression. BackgroundColorGradient

Expression Variable qui représente un objet Window .

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ésde l’éditeur Visual Basic Editor 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

Pour une fenêtre de dessin, une fenêtre d’aperçu avant impression ou une fenêtre en mode plein écran, définir la propriété BackgroundColorGradient de la fenêtre sur une valeur autre que la valeur par défaut (-1) remplace le paramètre ApplicationSettings.DrawingBackgroundColorGradient pour cet ensemble de fenêtres. Pour pouvoir réinitialiser cette propriété pour le même jeu de fenêtres, vous devez réinitialiser BackgroundColorGradient à sa valeur par défaut, -1. Si plusieurs dessins sont ouverts, la définition de BackgroundColorGradient pour un jeu de fenêtres n’a aucun effet sur le paramètre des autres jeux de fenêtres ouvertes.

Toutefois, pour une fenêtre ShapeSheet, définir la propriété BackgroundColorGradient de la fenêtre sur une valeur autre que la valeur par défaut n’a aucun effet, soit sur la couleur d’arrière-plan de la fenêtre ShapeSheet, soit sur l’un des autres paramètres de fenêtre.

Exemple

La macro VBA suivante indique comment utiliser la propriété BackgroundColorGradient afin de récupérer et définir la couleur du dégradé d'arrière-plan de la fenêtre active. Il montre également comment obtenir un objet ApplicationSettings à partir de l’objet Application Visio, ainsi que la relation entre la propriété BackgroundColorGradient et la propriété ApplicationSettings.DrawingBackgroundColorGradient . Cet exemple suppose qu’une fenêtre de dessin active 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 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

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.