Classe ChartBorder (Word VBA)

Cet objet représente la bordure d'un objet.

Pour utiliser une variable de classe ChartBorder, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe ChartBorder : Axis.Border, DataTable.Border, DropLines.Border, ErrorBars.Border, Gridlines.Border, HiLoLines.Border, LeaderLines.Border, Series.Border, SeriesLines.Border, Trendline.Border et UpBars.Border.

Color

Cette propriété renvoie ou définit la couleur principale de l'objet.

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

ColorIndex

Renvoie ou définit la couleur de la bordure. Les valeurs de retour possibles sont xlColorIndexAutomatic - Couleur automatique, xlColorIndexNone - Aucune couleur.

La couleur est spécifiée sous la forme d'une valeur d'index dans la palette de couleurs actuelle ou en tant que l'une des constantes XlColorIndex suivantes :

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

Renvoie ou définit le style de ligne de la bordure. Les valeurs de retour possibles sont xlContinuous - Trait continu, xlDash - Pointillé, xlDashDot - Alternance de tirets et de points, xlDashDotDot - Tiret suivi de deux points, xlDot - Trait avec points, xlDouble - Double trait, xlLineStyleNone - Aucun trait, xlSlantDashDot - Tirets inclinés.

Les constantes xlDouble et xlSlantDashDot de l’énumération XlLineStyle ne s’appliquent pas aux graphiques.

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

Cette propriété renvoie ou définit la largeur de la bordure.

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