Gewusst wie: Programmgesteuertes Anwenden von Formaten auf Bereiche in Arbeitsmappen

Artikel
02/26/2013

Sie können benannte Formate auf Bereiche in Arbeitsmappen anwenden.Excel enthält einige vordefinierte Formate.

Betrifft: Die Informationen in diesem Thema betreffen Projekte auf Dokument- und auf Anwendungsebene für Excel 2013 und Excel 2010. Weitere Informationen finden Sie unter Verfügbare Funktionen nach Office-Anwendung und Projekttyp.

Im Dialogfeld Zellen formatieren werden alle Optionen angezeigt, die Sie zum Formatieren von Zellen verwenden können. Jede dieser Optionen ist im Code verfügbar.Um dieses Dialogfeld in Excel anzuzeigen, klicken Sie im Menü Format auf Zellen.

So weisen Sie einem benannten Bereich in einer Anpassung auf Dokumentebene eine Formatvorlage zu

Erstellen Sie ein neues Format, und legen Sie dessen Attribute fest.

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;

Erstellen Sie ein NamedRange-Steuerelement, weisen Sie ihm Text zu, und wenden Sie dann das neue Format an.Dieser Code muss in eine Sheet-Klasse, nicht in die ThisWorkbook-Klasse eingefügt werden.

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

So weisen Sie aus einem benannten Bereich in einer Anpassung auf Dokumentebene löschen

Wenden Sie das Format Normal auf den Bereich an.Dieser Code muss in eine Sheet-Klasse, nicht in die ThisWorkbook-Klasse eingefügt werden.
```
Me.rangeStyles.Style = "Normal"
```
```
this.rangeStyles.Style = "Normal";
```

So weisen Sie einem benannten Bereich in einem Add-In auf Anwendungsebene eine Formatvorlage zu

Erstellen Sie ein neues Format, und legen Sie dessen Attribute fest.

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;

Erstellen Sie einen Microsoft.Office.Interop.Excel.Range, weisen Sie diesem Text zu, und wenden Sie dann das neue Format an.

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

So weisen Sie aus einem benannten Bereich in einem Add-In auf Anwendungsebene löschen

Wenden Sie das Format Normal auf den Bereich an.

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

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

Siehe auch

Konzepte

Arbeiten mit Bereichen

NamedRange-Steuerelement

Globaler Zugriff auf Objekte in Office-Projekten

Optionale Parameter in Office-Lösungen

Freigeben über