Clase Interior (Word VBA)

La clase Interior representa el interior de un objeto.

Set

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

Las variables de tipo Interior se pueden establecer utilizando el procedimiento 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.

Valores posibles 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

Parent

Devuelve al objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = ActiveDocument.Background.Chart.ChartGroups(1).UpBars.Interior.Parent

Pattern

Devuelve o establece un valor de tipo Variant , que contiene una constante XlPattern , que representa la trama interior.

Valores posibles son xlPatternAutomatic - Word controla la trama, xlPatternChecker - Tablero, xlPatternCrissCross - Líneas formando una trama, xlPatternDown - Líneas diagonales oscuras desde la esquina superior izquierda hasta la inferior derecha, xlPatternGray16 - 16% gris, xlPatternGray25 - 25% gris, xlPatternGray50 - 50% gris, xlPatternGray75 - 75% gris, xlPatternGray8 - 8% gris, xlPatternGrid - Cuadrícula, xlPatternHorizontal - Líneas horizontales oscuras, xlPatternLightDown - Líneas diagonales claras desde la esquina superior izquierda hasta la inferior derecha, xlPatternLightHorizontal - Líneas horizontales claras, xlPatternLightUp - Líneas diagonales claras trazadas desde la esquina inferior izquierda hasta la superior derecha, xlPatternLightVertical - Barras verticales claras, xlPatternLinearGradient - Degradado lineal, xlPatternNone - Sin trama, xlPatternRectangularGradient - Degradado rectangular, xlPatternSemiGray75 - Trama moiré oscura al 75%, xlPatternSolid - Color sólido, xlPatternUp - Líneas diagonales oscuras que se ejecutan de la esquina inferior izquierda a la superior derecha, xlPatternVertical - Barras verticales oscuras.
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.

Valores posibles 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