Classe Interior - o interior de um objeto (Word VBA)

A classe Interior representa o interior de um objeto. Para usar uma variável de classe Interior, ela primeiro precisa ser instanciada por exemplo

Dim int as Interior
Set int = ActiveDocument.Background.Chart.ChartGroups(1).UpBars.Interior

Color

Retorna ou define a cor principal do objeto. de leitura/gravação.

ActiveDocument.Background.Chart.ChartGroups(1).UpBars.Interior.Color =

ColorIndex

Retorna ou define a cor do interior. de leitura/gravação. Os valores de retorno possíveis são xlColorIndexAutomatic - Cor automática, xlColorIndexNone - Sem cor.

A cor é especificada como um valor de índice na paleta de cores atual ou como uma das seguintes constantes XlColorIndex :

ActiveDocument.Background.Chart.ChartGroups(1).UpBars.Interior.ColorIndex =

InvertIfNegative

True se o Microsoft Word inverte o padrão no objeto quando ela corresponde a um número negativo. de leitura/gravação.

ActiveDocument.Background.Chart.ChartGroups(1).UpBars.Interior.InvertIfNegative = True

Pattern

Retorna ou define um valor , contendo uma constante XlPattern , que representa o padrão interior. Aqui você pode encontrar os valores possíveis para XlPattern.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart.ChartGroups(1) 
 .HasUpDownBars = True 
 .DownBars.Interior.Pattern = xlPatternCrissCross 
 .DownBars.Interior.PatternColorIndex = 3 
 End With 
 End If 
End With

PatternColor

Retorna ou define a cor do padrão interior como um valor RGB. de leitura/gravação.

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart.ChartGroups(1) 
 .HasUpDownBars = True 
 .DownBars.Interior.Pattern = xlPatternCrissCross 
 .DownBars.Interior.PatternColor = RGB(0, 0, 255) 
 End With 
 End If 
End With

PatternColorIndex

Retorna ou define a cor do padrão interior como um índice na paleta de cores atual ou como uma das seguintes constantes XlColorIndex : xlColorIndexAutomatic ou xlColorIndexNone. Long de leitura/gravação. Os valores de retorno possíveis são xlColorIndexAutomatic - Cor automática, xlColorIndexNone - Sem cor.

Defina essa propriedade como xlColorIndexAutomatic para especificar o estilo de preenchimento automático para objetos de desenho. Defina essa propriedade como xlColorIndexNone para especificar que você não deseja um padrão (equivale a definir a propriedade Pattern do objeto Interior como xlPatternNone).

With ActiveDocument.InlineShapes(1) 
 If .HasChart Then 
 With .Chart.ChartGroups(1) 
 .HasUpDownBars = True 
 .DownBars.Interior.Pattern = xlPatternCrissCross 
 .DownBars.Interior.PatternColorIndex = 3 
 End With 
 End If 
End With