Comment : appliquer des styles à des plages dans les classeurs par programmation

Article
03/04/2013

Vous pouvez appliquer des styles nommés à des régions à l'intérieur de classeurs.Excel fournit un certain nombre de styles prédéfinis.

S'applique à : Les informations contenues dans cette rubrique s'appliquent aux projets de niveau document et de niveau application pour Excel 2013 et Excel 2010. Pour en savoir plus, consultez Fonctionnalités disponibles par type d'application et de projet Office.

La boîte de dialogue Format de cellules affiche toutes les options que vous pouvez utiliser pour mettre les cellules en forme. Chacune de ces options est disponible à partir de votre code.Pour afficher cette boîte de dialogue dans Excel, cliquez sur Cellules dans le menu Format.

Pour appliquer un style à une plage nommée dans une personnalisation au niveau du document

Créez un nouveau style et définissez ses attributs.

Dim style As Excel.Style = Globals.ThisWorkbook.Styles.Add("NewStyle")

style.Font.Name = "Verdana"
style.Font.Size = 12
style.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red)
style.Interior.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Gray)
style.Interior.Pattern = Excel.XlPattern.xlPatternSolid

Excel.Style style = Globals.ThisWorkbook.Styles.Add("NewStyle");

style.Font.Name = "Verdana";
style.Font.Size = 12;
style.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red);
style.Interior.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Gray);
style.Interior.Pattern = Excel.XlPattern.xlPatternSolid;

Créez un contrôle NamedRange, assignez-lui du texte, puis appliquez le nouveau style.Ce code doit être placé dans une classe sheet et non dans la classe ThisWorkbook.

Dim rangeStyles As Microsoft.Office.Tools.Excel.NamedRange = _
    Me.Controls.AddNamedRange(Me.Range("A1"), "rangeStyles")

rangeStyles.Value2 = "'Style Test"
rangeStyles.Style = "NewStyle"
rangeStyles.Columns.AutoFit()

Microsoft.Office.Tools.Excel.NamedRange rangeStyles =
    this.Controls.AddNamedRange(this.Range["A1"], "rangeStyles");

rangeStyles.Value2 = "'Style Test";
rangeStyles.Style = "NewStyle";
rangeStyles.Columns.AutoFit();

Pour supprimer un style d'une plage nommée dans une personnalisation au niveau de le document

Appliquez le style Normal à la plage.Ce code doit être placé dans une classe sheet et non dans la classe ThisWorkbook.
```
Me.rangeStyles.Style = "Normal"
```
```
this.rangeStyles.Style = "Normal";
```

Pour appliquer un style à une plage nommée dans un complément d'application

Créez un nouveau style et définissez ses attributs.

Dim style As Excel.Style = Me.Application.ActiveWorkbook.Styles.Add("NewStyle")

style.Font.Name = "Verdana"
style.Font.Size = 12
style.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red)
style.Interior.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Gray)
style.Interior.Pattern = Excel.XlPattern.xlPatternSolid

Excel.Style style = this.Application.ActiveWorkbook.Styles.Add("NewStyle");

style.Font.Name = "Verdana";
style.Font.Size = 12;
style.Font.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Red);
style.Interior.Color = System.Drawing.ColorTranslator.ToOle(System.Drawing.Color.Gray);
style.Interior.Pattern = Excel.XlPattern.xlPatternSolid;

Créez Microsoft.Office.Interop.Excel.Range, assignez-lui du texte, puis appliquez le nouveau style.

Dim rangeStyles As Excel.Range = Me.Application.Range("A1")

rangeStyles.Value2 = "'Style Test"
rangeStyles.Style = "NewStyle"
rangeStyles.Columns.AutoFit()

Excel.Range rangeStyles = this.Application.get_Range("A1");

rangeStyles.Value2 = "'Style Test";
rangeStyles.Style = "NewStyle";
rangeStyles.Columns.AutoFit();

Pour supprimer un style d'une plage nommée dans un complément d'application

Appliquez le style Normal à la plage.

Dim rng As Excel.Range = Me.Application.Range("A1")
rng.Style = "Normal"

Excel.Range rng = this.Application.get_Range("A1");
rng.Style = "Normal";

Voir aussi

Concepts

Utilisation des plages

NamedRange, contrôle

Accès global aux objets dans les projets Office

Paramètres optionnels dans les solutions Office

Partager via