ListObject.HeaderRowRange Eigenschaft
Definition
Wichtig
Einige Informationen beziehen sich auf Vorabversionen, die vor dem Release ggf. grundlegend überarbeitet werden. Microsoft übernimmt hinsichtlich der hier bereitgestellten Informationen keine Gewährleistungen, seien sie ausdrücklich oder konkludent.
Ruft einen Range ab, der den Bereich des Headers darstellt.
public Microsoft.Office.Interop.Excel.Range HeaderRowRange { get; }
Eigenschaftswert
Ein Range, der den Bereich des Headers darstellt.
Beispiele
Im folgenden Codebeispiel werden ein DataTable und ein erstellt ListObject und die ListObject an die gebunden DataTable . Anschließend wird der Bereich abgerufen, der die Kopfzeile enthält, und die Schriftart der Kopfzeile wird in "Bold" geändert.
Dieses Beispiel gilt für eine Anpassung auf Dokument Ebene.
private void ListObject_HeaderRowRange()
{
// Create a new DataSet and DataTable.
DataSet ds = new DataSet();
DataTable dt = ds.Tables.Add("Customers");
dt.Columns.Add(new DataColumn("LastName"));
dt.Columns.Add(new DataColumn("FirstName"));
// Add a new row to the DataTable.
DataRow dr = dt.NewRow();
dr["LastName"] = "Chan";
dr["FirstName"] = "Gareth";
dt.Rows.Add(dr);
// Create a list object.
Microsoft.Office.Tools.Excel.ListObject list1 =
this.Controls.AddListObject(
this.Range["A1"], "list1");
// Bind the list object to the DataTable.
list1.AutoSetDataBoundColumnHeaders = true;
list1.SetDataBinding(ds, "Customers", "LastName",
"FirstName");
// Get the header row range and set the font to bold.
Excel.Range headerRow = list1.HeaderRowRange;
headerRow.Cells.Font.Bold = true;
}
Private Sub ListObject_HeaderRowRange()
' Create a new DataSet and DataTable.
Dim ds As New DataSet()
Dim dt As DataTable = ds.Tables.Add("Customers")
dt.Columns.Add(New DataColumn("LastName"))
dt.Columns.Add(New DataColumn("FirstName"))
' Add a new row to the DataTable.
Dim dr As DataRow = dt.NewRow()
dr("LastName") = "Chan"
dr("FirstName") = "Gareth"
dt.Rows.Add(dr)
' Create a list object.
Dim List1 As Microsoft.Office.Tools.Excel.ListObject = _
Me.Controls.AddListObject(Me.Range("A1"), _
"List1")
' Bind the list object to the DataTable.
List1.AutoSetDataBoundColumnHeaders = True
List1.SetDataBinding(ds, "Customers", _
"LastName", "FirstName")
' Get the header row range and set the font to bold.
Dim headerRow As Excel.Range = List1.HeaderRowRange
headerRow.Cells.Font.Bold = True
End Sub
Hinweise
Wenn keine Kopfzeile vorhanden ist, wird HeaderRowRange zurückgegeben null .