Classe ChartBorder (Word VBA)

A classe ChartBorder representa a borda de um objeto. Para usar uma variável de classe ChartBorder, ela primeiro precisa ser instanciada por exemplo

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

Color

Retorna ou define a cor principal do objeto. de leitura/gravação.

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

ColorIndex

Retorna ou define a cor da borda. de leitura/gravação. Os valores de retorno possíveis são xlColorIndexAutomatic - Cor automática, xlColorIndexNone - Sem cor.

A cor é especificada como um valor de índice na paleta de cores atual ou como uma das seguintes 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

Retorna ou define o estilo de linha da borda. Leitura/gravação XlLineStyle, xlGray25, xlGray50, xlGray75ou xlAutomatic. Os valores de retorno possíveis são xlContinuous - Uma linha contínua, xlDash - Uma linha tracejada, xlDashDot - Traços e pontos alternados, xlDashDotDot - Um travessão seguido por dois pontos, xlDot - Uma linha pontilhada, xlDouble - Uma linha dupla, xlLineStyleNone - Sem linha, xlSlantDashDot - Traços inclinados.

As constantes xllinestylexldouble e XlSlantDashDot da enumeração XlLineStyle não se aplicam a 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

Retorna ou define a espessura da borda. Leitura/gravação XlBorderWeight.

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