Classe Interior (Word VBA)

Cet objet représente l'intérieur d'un objet.

Set

Pour utiliser une variable de classe Interior, elle doit d'abord être instanciée, par exemple

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

Les variables du type Interior peuvent être définies à l'aide de la procédure UpBars.Interior

Color

Cette propriété renvoie ou définit la couleur principale de l'objet.

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

ColorIndex

Cette propriété renvoie ou définit la couleur de l'intérieur.

Valeurs possibles sont xlColorIndexAutomatic - Couleur automatique, xlColorIndexNone - Aucune couleur.

La couleur est spécifiée sous la forme d'une valeur d'index dans la palette de couleurs actuelle ou en tant que l'une des constantes XlColorIndex suivantes :

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

InvertIfNegative

La valeur true si Microsoft Word inverse le motif de l'objet lorsqu'il correspond à un nombre négatif.

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

Parent

Renvoie le parent de l'objet spécifié.

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

Pattern

Cette propriété renvoie ou définit une valeur de type Variant contenant une constante XlPattern qui représente le motif intérieur.

Valeurs possibles sont xlPatternAutomatic - Modèle contrôlé par Word, xlPatternChecker - Damier, xlPatternCrissCross - Lignes entrecroisées, xlPatternDown - Lignes diagonales sombres du coin supérieur gauche au coin inférieur droit, xlPatternGray16 - Gris 16 %, xlPatternGray25 - Gris 25 %, xlPatternGray50 - Gris 50 %, xlPatternGray75 - Gris 75 %, xlPatternGray8 - Gris 8 %, xlPatternGrid - Grille, xlPatternHorizontal - Lignes horizontales sombres, xlPatternLightDown - Lignes diagonales claires, du coin supérieur gauche au coin inférieur droit, xlPatternLightHorizontal - Lignes horizontales claires, xlPatternLightUp - Lignes diagonales claires, du coin inférieur gauche au coin supérieur droit, xlPatternLightVertical - Barres verticales claires, xlPatternLinearGradient - Dégradé linéaire, xlPatternNone, xlPatternRectangularGradient - Dégradé rectangulaire, xlPatternSemiGray75 - Moiré sombre 75 %, xlPatternSolid - Couleur unie, xlPatternUp - Lignes diagonales sombres du coin inférieur gauche au coin supérieur droit, xlPatternVertical - Barres verticales sombres.
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

Cette propriété renvoie ou définit la couleur du motif intérieur sous la forme d'une valeur RVB.

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

Renvoie ou définit la couleur du motif intérieur sous la forme d'un index de la palette de couleurs active ou de l'une des constantes XlColorIndex suivantes : xlColorIndexAutomatic ou xlColorIndexNone.

Valeurs possibles sont xlColorIndexAutomatic - Couleur automatique, xlColorIndexNone - Aucune couleur.

Définissez cette propriété sur xlColorIndexAutomatic pour spécifier le style de remplissage automatique pour les objets de dessin.

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