Classe Interior - l'intérieur d'un objet (Word VBA)

Cet objet représente l'intérieur d'un objet. 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

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. Les valeurs de retour 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

Pattern

Cette propriété renvoie ou définit une valeur de type Variant contenant une constante XlPattern qui représente le motif intérieur. Ici on trouve valeurs possible pour 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

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. Les valeurs de retour 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