Clase Shading - sombreado (Word VBA)

Contiene los atributos de sombreado de un objeto. Para usar una variable de clase Shading, primero debe ser instanciado, por ejemplo


Dim shd as Shading
Set shd = Selection.Shading

BackgroundPatternColor

Devuelve o establece el color de 24 bits que se aplica al fondo del objeto Shading. Aquí puede ver valores posibles para WdColor.

Esta propiedad puede ser cualquier constante WdColor válida o un valor devuelto por la función RGB de Visual Basic.


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

BackgroundPatternColorIndex

Devuelve o establece el color que se aplica al fondo del objeto Shading. Aquí puede ver valores posibles para WdColorIndex.


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

ForegroundPatternColor

Devuelve o establece el color de 24 bits que se aplica al primer plano del objeto Shading. Aquí puede ver valores posibles para WdColor.

Esta propiedad puede ser cualquier constante WdColor válida o un valor devuelto por la función RGB de Visual Basic.


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

ForegroundPatternColorIndex

Devuelve o establece el color que se aplica al primer plano del objeto Shading. Aquí puede ver valores posibles para WdColorIndex.


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

Texture

Devuelve o establece la textura de sombreado del objeto especificado. Aquí puede ver valores posibles para WdTextureIndex.


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