Freigeben über


NamedRange.BorderAround-Methode

Fügt einem NamedRange-Steuerelement einen Rahmen hinzu und legt die Eigenschaften Color, LineStyle sowie Weight für den neuen Rahmen fest.

Namespace:  Microsoft.Office.Tools.Excel
Assembly:  Microsoft.Office.Tools.Excel (in Microsoft.Office.Tools.Excel.dll)

Syntax

'Declaration
Function BorderAround ( _
    LineStyle As Object, _
    Weight As XlBorderWeight, _
    ColorIndex As XlColorIndex, _
    Color As Object _
) As Object
Object BorderAround(
    Object LineStyle,
    XlBorderWeight Weight,
    XlColorIndex ColorIndex,
    Object Color
)

Parameter

Rückgabewert

Typ: System.Object

Hinweise

Sie müssen entweder ColorIndex oder Color angeben. Sie können jedoch nicht beide angeben.

Sie können entweder LineStyle oder Weight angeben. Sie können jedoch nicht beide angeben.Wenn Sie kein Argument angeben, wird von Microsoft Office Excel die Standardlinienart und Standardlinienstärke verwendet.

Mit dieser Methode wird der gesamte Bereich umrahmt, er wird jedoch nicht ausgefüllt.Um die Ränder aller Zellen festzulegen, müssen Sie die Eigenschaften Color, LineStyle und Weight für die Borders-Auflistung festlegen.Um den Rahmen zu löschen, müssen Sie die LineStyle-Eigenschaft für alle Zellen innerhalb des Bereichs auf xlLineStyleNone festlegen.

Optionale Parameter

Informationen zu optionalen Parametern finden Sie unter Optionale Parameter in Office-Lösungen.

Beispiele

Im folgenden Codebeispiel wird veranschaulicht, wie verschiedene Formatierungs- und Anzeigeeigenschaften eines NamedRange-Steuerelements mit dem Namen NamedRange1 festgelegt werden.Insbesondere wird in diesem Beispiel mithilfe der BorderAround-Methode ein breiter Rahmen um NamedRange1 herum gezeichnet.

Dieses Beispiel bezieht sich auf eine Anpassung auf Dokumentebene.

    Private Sub SetRangeFormats()
        Dim namedRange1 As Microsoft.Office.Tools.Excel.NamedRange _
            = Me.Controls.AddNamedRange(Me.Range("A1", "A5"), _
            "namedRange1")

        namedRange1.NoteText("This is a Formatting test", , )
        namedRange1.Value2 = "Martha"
        namedRange1.Font.Name = "Verdana"
        namedRange1.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter
        namedRange1.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter
        namedRange1.BorderAround(, Excel.XlBorderWeight.xlThick, _
            Excel.XlColorIndex.xlColorIndexAutomatic, )
        namedRange1.AutoFormat( _
            Excel.XlRangeAutoFormat.xlRangeAutoFormat3DEffects1, _
            True, False, True, False, True, True)

        If MessageBox.Show("Clear the formatting and notes?", _
            "Test", MessageBoxButtons.YesNo) = DialogResult.Yes Then
            namedRange1.ClearFormats()
            namedRange1.ClearNotes()
        End If
    End Sub

private void SetRangeFormats()
{
    Microsoft.Office.Tools.Excel.NamedRange namedRange1 =
        this.Controls.AddNamedRange(this.Range["A1", "A5"],
        "namedRange1");

    namedRange1.NoteText("This is a Formatting test");
    namedRange1.Value2 = "Martha";
    namedRange1.Font.Name = "Verdana";
    namedRange1.VerticalAlignment = Excel.XlVAlign.xlVAlignCenter;
    namedRange1.HorizontalAlignment = Excel.XlHAlign.xlHAlignCenter;
    namedRange1.BorderAround(missing, Excel.XlBorderWeight.xlThick, 
        Excel.XlColorIndex.xlColorIndexAutomatic);
    namedRange1.AutoFormat(Excel.XlRangeAutoFormat.xlRangeAutoFormat3DEffects1,
        true, false, true, false, true, true);

    if (MessageBox.Show("Clear the formatting and notes?", "Test",
        MessageBoxButtons.YesNo) == DialogResult.Yes)
    {
        namedRange1.ClearFormats();
        namedRange1.ClearNotes();
    }
}

.NET Framework-Sicherheit

Siehe auch

Referenz

NamedRange Schnittstelle

Microsoft.Office.Tools.Excel-Namespace