Classe Shading - sombreamento (Word VBA)

Contém atributos de sombreamento para um objeto. Para usar uma variável de classe Shading, ela primeiro precisa ser instanciada por exemplo

Dim shd as Shading
Set shd = Selection.Shading

BackgroundPatternColor

Retorna ou define a cor de 24 bits que é aplicada ao plano de fundo do objeto Shading. Leitura/gravação. Aqui você pode encontrar os valores possíveis para WdColor.

Essa propriedade pode ser qualquer constante WdColor válida ou um valor retornado pela função RGB do Visual Basic.

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

BackgroundPatternColorIndex

Retorna ou define a cor aplicada ao plano de fundo do objeto Shading. Leitura/gravação WdColorIndex. Aqui você pode encontrar os valores possíveis para WdColorIndex.

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

ForegroundPatternColor

Retorna ou define a cor de 24 bits que é aplicada ao primeiro plano do objeto Shading. Essa cor é aplicada aos pontos e às linhas no padrão de sombreamento. Leitura/gravação. Aqui você pode encontrar os valores possíveis para WdColor.

Essa propriedade pode ser qualquer constante WdColor válida ou um valor retornado pela função RGB do Visual Basic.

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

ForegroundPatternColorIndex

Retorna ou define a cor aplicada ao primeiro plano do objeto Shading. Essa cor é aplicada aos pontos e às linhas no padrão de sombreamento. Leitura/gravação WdColorIndex. Aqui você pode encontrar os valores possíveis para WdColorIndex.

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

Texture

Retorna ou define a textura de sombreamento do objeto especificado. Leitura/gravação WdTextureIndex. Aqui você pode encontrar os valores possíveis para WdTextureIndex.

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