Klasse Interior - den Innenbereich eines Objekts (Word VBA)

Die Klasse Interior stellt den Innenbereich eines Objekts dar. Um eine Interior -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim int as Interior
Set int = ActiveDocument.Background.Chart.ChartGroups(1).UpBars.Interior

Color

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

ActiveDocument.Background.Chart.ChartGroups(1).UpBars.Interior.Color =

ColorIndex

Zurück oder legt die Farbe des Innenbereichs. 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:

ActiveDocument.Background.Chart.ChartGroups(1).UpBars.Interior.ColorIndex =

InvertIfNegative

True, Wenn Microsoft Word das Muster im Objekt invertiert, wenn es eine negative Zahl entspricht.

ActiveDocument.Background.Chart.ChartGroups(1).UpBars.Interior.InvertIfNegative = True

Pattern

Gibt einen Variant -Wert zurück, der eine XlPattern -Konstante enthält, die das innen Muster darstellt, oder legt diesen fest. Dies sind mögliche Werte für XlPattern.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart.ChartGroups(1) 
 .HasUpDownBars = True 
 .DownBars.Interior.Pattern = xlPatternCrissCross 
 .DownBars.Interior.PatternColorIndex = 3 
 End With 
 End If 
End With

PatternColor

Gibt die Musterfarbe für den Innenbereich als RGB-Wert zurück.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart.ChartGroups(1) 
 .HasUpDownBars = True 
 .DownBars.Interior.Pattern = xlPatternCrissCross 
 .DownBars.Interior.PatternColor = RGB(0, 0, 255) 
 End With 
 End If 
End With

PatternColorIndex

Gibt die Farbe des innen Musters als Index in der aktuellen Farbpalette oder als eine der folgenden XlColorIndex -Konstanten zurück oder legt Sie fest: xlColorIndexAutomatic oder xlColorIndexNone wird. Mögliche Rückgabewerte sind xlColorIndexAutomatic - Automatische Farbe, xlColorIndexNone - Keine Farbe.

Legen Sie diese Eigenschaft auf xlColorIndexAutomatic fest, um die automatische Füllformat Vorlage für Zeichnungsobjekte anzugeben.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart.ChartGroups(1) 
 .HasUpDownBars = True 
 .DownBars.Interior.Pattern = xlPatternCrissCross 
 .DownBars.Interior.PatternColorIndex = 3 
 End With 
 End If 
End With