Renvoie or sets the color of the interior pattern as an index into the current color palette, or as one of the following XlColorIndex constants: xlColorIndexAutomatic or xlColorIndexNone. Read/write LongWord
Syntaxe
property PatternColorIndex: LongWord;
Remarques
Set this property to xlColorIndexAutomatic to specify the automatic pattern for cells. Set this property to xlColorIndexNone to specify that you don't want a pattern (this is the same as setting the Pattern property of the Interior object to xlPatternNone)
The following illustration shows the color-index values in the default color palette
 |
Exemple
This example sets the color of the interior pattern for range A1:C10 on Worksheet one
Workbook.Worksheets[1].Range['A1', 'C10'].Interior.Pattern := xlChecker; Workbook.Worksheets[1].Range['A1', 'C10'].Interior.PatternColorIndex := 8;