Compartir a través de


Método Application.BoxStylesEdit (Project)

Establece el estilo de los cuadros de la vista Diagrama de red.

Sintaxis

expresión. BoxStylesEdit( _Style_, _DataTemplate_, _HorizontalGridlines_, _VerticalGridlines_, _BorderShape_, _BorderColor_, _BorderWidth_, _BackgroundColor_, _BackgroundPattern_ )

expresión Variable que representa un objeto Application.

Parámetros

Nombre Obligatorio/opcional Tipo de datos Descripción
Estilo Obligatorio Long Estilo de cuadro que se va a cambiar. Puede ser una de las constantes de PjBoxStyle.
DataTemplate Opcional String Nombre de la plantilla de datos que se va a usar para el estilo.
HorizontalGridlines Opcional Boolean True si las líneas de cuadrícula horizontales separan cada fila en el cuadro; de lo contrario, False.
VerticalGridlines Opcional Boolean True si las filas en el cuadro; separan por líneas verticales de lo contrario, False.
BorderShape Opcional Long Forma del borde del cuadro. Puede ser una de las constantes de PjBoxShape.
BorderColor Opcional Long Color del borde del cuadro. Puede ser una de las constantes de PjColor.
BorderWidth Opcional Long Valor comprendido entre 1 y 4 que determina el ancho del borde del cuadro en píxeles.
BackgroundColor Opcional Long Color del fondo del cuadro. Puede ser una de las constantes de PjColor.
BackgroundPattern Opcional Long Patrón del fondo. Puede ser una de las constantes de PjBackgroundPattern:

Valor devuelto

Boolean

Comentarios

Para mostrar el cuadro de diálogo Estilos de cuadro, use el método BarBoxStyles.

Para editar las líneas de vínculo de cuadro en las que los colores pueden ser valores RGB, use el método BoxStylesEditEx.

Ejemplo:

El ejemplo siguiente se cambian los cuadros cuyo estilo es pjBoxCritical para que se muestren como rectángulos redondeados, agrega líneas de cuadrícula verticales y establece los colores de borde y del fondo.

Sub BoxStyles_Edit() 
 'Activate the Network Diagram view 
 ViewApply Name:="Network Diagram" 
 
 BoxStylesEdit Style:=pjBoxCritical, BorderShape:=pjBoxRoundedRectangle, VerticalGridlines:=True, _ 
 BorderColor:=pjRed, BorderWidth:=3, _ 
 BackgroundColor:=pjGray, BackgroundPattern:=pjBackgroundLightDither 
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.