Postupy: Používání stylů pro oblasti sešitů prostřednictvím kódu programu

Článek
05/16/2015

Můžete použít styly pojmenovaných oblastí v sešitech.Aplikace Excel poskytuje několik předdefinovaných stylů.

Platí pro: Informace v tomto tématu se vztahují na projekty na úrovni dokumentu i na úrovni aplikace v Excelu 2013 a v Excelu 2010. Další informace najdete v tématu Dostupné funkce podle aplikací systému Office a typů projektu.

Formát buněk dialogovém okně se zobrazí všechny možnosti, které lze použít k formátování buněk a každou z těchto možností je k dispozici z vašeho kódu.V aplikaci Excel zobrazit toto dialogové okno, klepněte na buněk na Formát nabídky.

Použití stylu na pojmenovanou oblast v přizpůsobení úroveň dokument

Vytvořit nový styl a nastavte jeho atributy.

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;

Vytvořit NamedRange řízení, přiřadit text a potom použít nový styl.Tento kód musí být umístěn v třídy list, nikoli ThisWorkbook třídy.

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();

Vymazat styl z pojmenované oblasti v přizpůsobení úroveň dokument

Použijte normální styl rozsahu.Tento kód musí být umístěn v třídy list, nikoli ThisWorkbook třídy.
```
Me.rangeStyles.Style = "Normal"
```
```
this.rangeStyles.Style = "Normal";
```

Použití stylu na pojmenovanou oblast v doplňku úrovni aplikace

Vytvořit nový styl a nastavte jeho atributy.

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;

Vytvořit Range, přiřadit text a potom použít nový styl.

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();

Vymazat styl z pojmenované oblasti v doplňku úrovni aplikace

Použijte normální styl rozsahu.

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

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

Viz také

Koncepty

Práce s oblastmi

NamedRange – ovládací prvek

Globální přístup k objektům v projektech pro systém Office

Volitelné parametry v řešeních pro systém Office

Sdílet prostřednictvím