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
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
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
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
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
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
Set myRange = ActiveDocument.Paragraphs(1).Range
myRange.Shading.Texture = wdTextureCross