Clase ChartBorder (Word VBA)

La clase ChartBorder representa el borde de un objeto.

Para usar una variable de clase ChartBorder, primero debe ser instanciado, por ejemplo

Dim cbr as ChartBorder
Set cbr = ActiveDocument.Background.Chart.DataTable.Border

Los siguientes procedimientos se pueden usar para establecer variables de clase ChartBorder : Axis.Border, DataTable.Border, DropLines.Border, ErrorBars.Border, Gridlines.Border, HiLoLines.Border, LeaderLines.Border, Series.Border, SeriesLines.Border, Trendline.Border y UpBars.Border.

Color

Devuelve o establece el color principal del objeto.

ActiveDocument.Background.Chart.DataTable.Border.Color =

ColorIndex

Devuelve o establece el color del borde. Posibles valores de retorno son xlColorIndexAutomatic - Color automático, xlColorIndexNone - Sin color.

El color se especifica como un valor de índice para la paleta de colores activa o bien como una de las siguientes constantes XlColorIndex:

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart.Axes(xlValue) 
 If .HasMajorGridlines Then 
 ' Set the color to blue. 
 .MajorGridlines.Border.ColorIndex = 5 
 End If 
 End With 
 End If 
End With

LineStyle

Devuelve o configura el estilo de línea para el borde. Posibles valores de retorno son xlContinuous - Una línea continua, xlDash - Una línea discontinua, xlDashDot - Guiones y puntos alternados, xlDashDotDot - Un guión seguido de dos puntos, xlDot - Una línea de puntos, xlDouble - Una línea doble, xlLineStyleNone - Sin línea, xlSlantDashDot - Guiones inclinados.

Las constantes xlDouble y xlSlantDashDot de la enumeración xlLineStyle no se aplican a los gráficos.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart 
 .ChartArea.Border.LineStyle = xlDashDot 
 With .PlotArea.Border 
 .LineStyle = xlDashDotDot 
 .Weight = xlThick 
 End With 
 End With 
 End If 
End With 

Weight

Devuelve o establece el grosor del borde.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 .Chart.Axes(xlValue).Border.Weight = xlMedium 
 End If 
End With