Propiedad ApplicationSettings.DrawingBackgroundColorGradient (Visio)
Determina el color del degradado de fondo de la ventana de dibujo de Microsoft Visio para la sesión en curso. Lectura y escritura.
Sintaxis
expresión. DrawingBackgroundColorGradient
Expresión Variable que representa un objeto ApplicationSettings .
Valor devuelto
OLE_COLOR
Observaciones
Los valores válidos para una propiedad OLE_COLOR dentro de Visio pueden ser uno de los siguientes:
&H00 bbggrr, donde bb es el valor azul entre 0 y 0xFF (255), gg el valor verde y rr el valor rojo.
&H800000 xx , donde xx es un índice GetSysColor válido.
Para obtener más información sobre la función GetSysColor , busque " GetSysColor " en el SDK de plataforma de Microsoft en MSDN.
El tipo de datos OLE_COLOR lo utilizan las propiedades que devuelven colores. Cuando una propiedad se declara como OLE_COLOR, el ventana Propiedades muestra un cuadro de diálogo selector de colores que permite al usuario seleccionar visualmente el color de la propiedad, en lugar de tener que recordar el equivalente numérico.
Por otra parte, puede usar las siguientes constantes de color de Microsoft Visual Basic para Aplicaciones (VBA) para OLE_COLOR.
| Constante | Valor | Descripción |
|---|---|---|
| vbBlack | 0x0 | Negro |
| vbRed | 0xFF | Rojo |
| vbGreen | 0xFF00 | Verde |
| vbYellow | 0xFFFF | Amarillo |
| vbBlue | 0xFF0000 | Azul |
| vbMagenta | 0xFF00FF | Magenta |
| vbCyan | 0xFFFF00 | Aguamarina |
| vbWhite | 0xFFFFFF | Blanco |
Si la propiedad BackgroundColorGradient de la ventana activa se establece en un valor distinto del predeterminado (-1), se invalidará la configuración de DrawingBackgroundColorGradient para dicha ventana. Para poder restablecer el color de degradado de fondo de la misma ventana activa estableciendo la propiedad DrawingBackgroundColorGradient , debe restablecer BackgroundColorGradient a su valor predeterminado, -1. Si hay varias ventanas abiertas, la configuración de BackgroundColorGradient para una ventana no produce ningún efecto en la configuración de las demás ventanas abiertas.
Nota:
Puede especificar dos colores para el fondo del dibujo. Si la resolución de pantalla de los usuarios es la adecuada, uno de los colores derivará hacia el otro desde la parte superior a la parte inferior de la pantalla. Para poder utilizar esta característica, los usuarios deben configurar sus monitores para que muestren imágenes en color de 32 bits. La posibilidad de establecer el color de fondo del dibujo mediante programación para los usuarios que ejecutan los programas en el modo de alto contraste está restringida.
Ejemplo
La macro de VBA siguiente muestra cómo utilizar la propiedad DrawingBackgroundColorGradient para obtener y establecer el color del degradado de fondo de la aplicación. También muestra cómo obtener un objeto ApplicationSettings del objeto Application de Visio y muestra la relación entre la propiedad DrawingBackgroundColorGradient y la propiedad Window.BackgroundColorGradient . En este ejemplo se supone que hay una ventana de dibujo abierta en Visio y que inicialmente todas las propiedades de color degradado de fondo están establecidas en sus valores predeterminados.
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
Soporte técnico y comentarios
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.