Partager via


Propriété ApplicationSettings.DrawingBackgroundColor (Visio)

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

Syntaxe

expression. DrawingBackgroundColor

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,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

La définition de la propriété BackgroundColor de la fenêtre active sur une valeur autre que la valeur par défaut (-1) remplace le paramètre DrawingBackgroundColor pour cette fenêtre. Pour pouvoir réinitialiser la couleur d'arrière-plan de la même fenêtre active en définissant la propriété DrawingBackgroundColor, vous devez rétablir la valeur par défaut de BackgroundColor, à savoir -1. Si plusieurs fenêtres sont ouvertes, définir BackgroundColor pour une fenêtre n'a pas d'effet sur les paramètres des autres fenêtres ouvertes.

Remarque

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é DrawingBackgroundColor afin de récupérer et définir l'application couleur d'arrière-plan. Il montre également comment obtenir un objet ApplicationSettings à partir de l’objet Application Visio, ainsi que la relation entre la propriété DrawingBackgroundColor et la propriété Window.BackgroundColor . Cet exemple suppose qu’une fenêtre de dessin 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 DrawingBackgroundColor_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 will also change 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.