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
Los siguientes procedimientos se pueden usar para establecer variables de clase Shading : 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

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