Klasse Shading - Schattierungsattribute (Word VBA)

Enthält Schattierungsattribute für ein Objekt.

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

Dim shd as Shading
Set shd = Selection.Shading
Die folgenden Prozeduren können zum Festlegen der Shading Klassenvariablen verwendet werden : Cell.Shading, Cells.Shading, Column.Shading, Columns.Shading, ConditionalStyle.Shading, Font.Shading, Frame.Shading, Paragraph.Shading, ParagraphFormat.Shading, Paragraphs.Shading, Range.Shading, Row.Shading, Rows.Shading, Selection.Shading ...Style.Shading, Table.Shading, TableStyle.Shading.

BackgroundPatternColor

Gibt die 24-Bit-Farbe, die auf den Hintergrund des Shading-Objekts angewendet wurde, zurück oder legt sie fest. Dies sind mögliche Werte für WdColor.

Diese Eigenschaft kann eine beliebige gültige WdColor -Konstante oder ein von Visual Basic RGB -Funktion zurückgegebener Wert sein.

Set myRange = ActiveDocument.Paragraphs(1).Range 
myRange.Shading.BackgroundPatternColor = _ 
 wdColorTurquoise

BackgroundPatternColorIndex

Gibt die Farbe, die auf den Hintergrund des Shading-Objekts angewendet wurde, zurück oder legt sie fest. Dies sind mögliche Werte für WdColorIndex.

Dim rngTemp As Range 
 
Set rngTemp = ActiveDocument.Paragraphs(1).Range 
rngTemp.Shading.BackgroundPatternColorIndex = wdTurquoise

ForegroundPatternColor

Gibt die 24-Bit-Farbe, die auf den Vordergrund eines Shading-Objekts angewendet wird, zurück oder legt sie fest. Dies sind mögliche Werte für WdColor.

Diese Eigenschaft kann eine beliebige gültige WdColor -Konstante oder ein von Visual Basic RGB -Funktion zurückgegebener Wert sein.

With Selection.Shading 
 .Texture = wdTexture30Percent 
 .ForegroundPatternColor = wdColorTeal 
 .BackgroundPatternColor = wdColorDarkRed 
End With

ForegroundPatternColorIndex

Gibt die Farbe, die auf den Vordergrund eines Shading-Objekts angewendet wird, zurück oder legt sie fest. Dies sind mögliche Werte für WdColorIndex.

With Selection.Shading 
 .Texture = wdTexture30Percent 
 .ForegroundPatternColorIndex = wdBlue 
 .BackgroundPatternColorIndex = wdYellow 
End With

Texture

Gibt eine Textur für die Schattierung des angegebenen Objekts zurück oder legt diese fest. Dies sind mögliche Werte für WdTextureIndex.

Set myRange = ActiveDocument.Paragraphs(1).Range 
myRange.Shading.Texture = wdTextureCross