Klasse ChartBorder (Word VBA)

Die Klasse ChartBorder stellt den Rahmen eines Objekts dar.

Um eine ChartBorder -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

Die folgenden Prozeduren können zum Festlegen der ChartBorder Klassenvariablen verwendet werden : Axis.Border, DataTable.Border, DropLines.Border, ErrorBars.Border, Gridlines.Border, HiLoLines.Border, LeaderLines.Border, Series.Border, SeriesLines.Border, Trendline.Border und UpBars.Border.

Color

Zurück oder legt die primäre Textfarbe des Objekts.

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

ColorIndex

Zurück oder legt die Farbe des Rahmens. Mögliche Rückgabewerte sind xlColorIndexAutomatic - Automatische Farbe, xlColorIndexNone - Keine Farbe.

Die Farbe wird als Indexwert in der aktuellen Farbpalette oder als eine der folgenden XlColorIndex -Konstanten angegeben:

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

Gibt die Linienart für den Rahmen zurück oder legt sie fest. Mögliche Rückgabewerte sind xlContinuous - Eine durchgehende Linie, xlDash - Eine gestrichelte Linie, xlDashDot - Abwechselnd Striche und Punkte, xlDashDotDot - Strich gefolgt von zwei Punkten, xlDot - Eine gepunktete Linie, xlDouble - Eine Doppellinie, xlLineStyleNone - Keine Linie, xlSlantDashDot - Schrägstriche.

Die xlDouble -und xlSlantDashDot -Konstanten der XlLineStyle -Aufzählung gelten nicht für Diagramme.

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

Gibt die Stärke des Rahmens zurück oder legt sie fest.

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