Clase Interior - el interior de un objeto (Word VBA)

La clase Interior representa el interior de un objeto. Para usar una variable de clase Interior, primero debe ser instanciado, por ejemplo

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

Color

Devuelve o establece el color principal del objeto.

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

ColorIndex

Devuelve o establece el color del interior. Posibles valores de retorno son xlColorIndexAutomatic - Color automático, xlColorIndexNone - Sin color.

El color se especifica como un valor de índice para la paleta de colores activa o bien como una de las siguientes constantes XlColorIndex:

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

InvertIfNegative

True si Microsoft Word invierte el diseño en el objeto cuando éste corresponde a un número negativo.

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

Pattern

Devuelve o establece un valor de tipo Variant , que contiene una constante XlPattern , que representa la trama interior. Aquí puede ver valores posibles 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

Devuelve o establece el color de la trama interior, especificado como un valor RGB.

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

Devuelve o establece el color de la trama interior como un índice para la paleta de colores activa o bien como una de las siguientes constantes XlColorIndex : xlColorIndexAutomatic o xlColorIndexNone. Posibles valores de retorno son xlColorIndexAutomatic - Color automático, xlColorIndexNone - Sin color.

Establezca esta propiedad como xlColorIndexAutomatic para especificar el estilo de relleno automático de los objetos de dibujo.

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