Porady: Programowane stosowanie stylów do zakresów arkusza w skoroszycie

Artykuł
06/10/2015

Style można zastosować do regionów w skoroszytach.Program Excel dostarcza szereg wstępnie zdefiniowanych stylów.

Zastosowanie: Informacje przedstawione w tym temacie mają zastosowanie do projektów na poziomie dokumentu i aplikacji obsługiwanych w programach Excel 2013 i Excel 2010. Aby uzyskać więcej informacji, zobacz Funkcje dostępne w aplikacjach pakietu Office i typ projektu.

Formatowanie komórek okno dialogowe wyświetla wszystkie opcje, można użyć, aby sformatować komórki, a każdy z tych opcji jest dostępne z kodu.Aby wyświetlić to okno dialogowe w programie Excel, kliknij przycisk komórek na Format menu.

Aby zastosować styl do nazwanego zakresu w dostosowania poziomu dokumentu

Tworzenie nowego stylu i ustawić jego atrybuty.

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;

Tworzenie NamedRange kontroli, jej przypisać tekst, a następnie Zastosuj nowy styl.Ten kod umieszcza się w klasie arkusz, nie w ThisWorkbook klasy.

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

Aby usunąć styl z nazwanego zakresu w dostosowania poziomu dokumentu

Styl normalny do zakresu.Ten kod umieszcza się w klasie arkusz, nie w ThisWorkbook klasy.
```
Me.rangeStyles.Style = "Normal"
```
```
this.rangeStyles.Style = "Normal";
```

Aby zastosować styl do nazwanego zakresu w poziomie aplikacji dodatek

Tworzenie nowego stylu i ustawić jego atrybuty.

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;

Tworzenie Range, jej przypisać tekst, a następnie zastosować nowy 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();

Aby usunąć styl z nazwanego zakresu w poziomie aplikacji dodatek

Styl normalny do zakresu.

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

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

Zobacz też

Koncepcje

Praca z zakresami

NamedRange — Formant

Globalny dostęp do obiektów w projektach pakietu Office

Parametry opcjonalne w rozwiązaniach Office

Udostępnij za pośrednictwem