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

Aktualisiert: Juli 2008

Betrifft
Die Informationen in diesem Thema gelten nur für die angegebenen Visual Studio Tools for Office-Projekte und Versionen von Microsoft Office. Projekttyp Projekte auf Dokumentebene Projekte auf Anwendungsebene Microsoft Office-Version Excel 2003 Excel 2007 Weitere Informationen finden Sie unter Verfügbare Features nach Anwendung und Projekttyp.

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

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

1. Erstellen Sie ein neues Format, und legen Sie dessen Attribute fest. Dieser Code muss in eine Sheet-Klasse, nicht in die ThisWorkbook-Klasse eingefügt werden.

   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;
   

2. 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

1. 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;
   

2. 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 eigene Objekte in Visual Studio Tools for Office-Projekte

Optionale Parametern in Office-Projektmappen

Änderungsprotokoll

Date	Versionsgeschichte	Grund
Juli 2008	Codebeispiel hinzugefügt, das in einem Add-In auf Anwendungsebene verwendet werden kann.	Kundenfeedback.