Gewusst wie: Anwenden von Formaten für Bereiche in Arbeitsmappen

Artikel
08/10/2011

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 2007 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", missing);

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", missing], "rangeStyles");

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

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", missing);

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", missing);

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

Siehe auch

Aufgaben

Gewusst wie: Löschen von Formaten für Bereiche in Arbeitsmappen

Konzepte

Arbeiten mit Bereichen

NamedRange-Steuerelement

Globaler Zugriff auf Objekte in Office-Projekten

Optionale Parameter in Office-Lösungen

Freigeben über