Propriété Window.BackgroundColor (Visio)

Article
04/07/2023

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

Syntaxe

expression. BackgroundColor

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, l’Fenêtre Propriétés dans Visual Basic Editor affiche une boîte de dialogue 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 d’affichage plein écran, définir la propriété BackgroundColor de la fenêtre sur une valeur autre que la valeur par défaut (-1) remplace les paramètres ApplicationSettings.DrawingBackgroundColor, ApplicationSettings.PrintPreviewBackgroundColor et ApplicationSettings.FullScreenBackgroundColor pour cet ensemble de fenêtres. Pour pouvoir réinitialiser ces propriétés pour le même jeu de fenêtres, vous devez réinitialiser BackgroundColor à sa valeur par défaut, -1. Si plusieurs dessins sont ouverts, la définition de BackgroundColor 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é BackgroundColor de la fenêtre sur une valeur autre que la valeur par défaut modifie la couleur d’arrière-plan de la fenêtre Feuille ShapeSheet, mais n’a aucun effet sur les autres paramètres de fenêtre.

Exemple

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

Public Sub BackgroundColor_Example() 
 
 Dim vsoApplicationSettings As Visio.ApplicationSettings 
 Set vsoApplicationSettings = Visio.Application.Settings 
 
 'Get the current application background color. 
 Debug.Print vsoApplicationSettings.DrawingBackgroundColor 
 
 'Get the active window background color. 
 Debug.Print ActiveWindow.BackgroundColor 
 
 'Change the application background 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 color. 
 ActiveWindow.BackgroundColor = vbMagenta 
 
 'Change the application background color again. 
 'This time, there is no change in the current 
 'window color, but the dialog box setting changes. 
 vsoApplicationSettings.DrawingBackgroundColor = vbYellow 
 
 'Reset Window.BackgroundColor to its default value. 
 ActiveWindow.BackgroundColor = -1 
 
 'Change the application background color again. 
 'Now both the active window color 
 'and the dialog box setting change. 
 vsoApplicationSettings.DrawingBackgroundColor = 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