Aracılığıyla paylaş


NamedRange.BorderAround Yöntem

Kenarlık ekler bir NamedRange control ve kümelerini Color, LineStyle, ve Weight özellikleri için yeni bir sınır.

Ad alanı:  Microsoft.Office.Tools.Excel
Derleme:  Microsoft.Office.Tools.Excel (Microsoft.Office.Tools.Excel.dll içinde)

Sözdizimi

'Bildirim
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
)

Parametreler

  • Color
    Tür: System.Object
    Bir rgb değeri olarak kenarlık rengi.

Dönüş Değeri

Tür: System.Object

Açıklamalar

Belirtmeniz gerekir ColorIndex veya Color, ancak ikisini birden.

Ya da belirtmek LineStyle veya Weight, ancak ikisini birden. Her iki bağımsız değişkeni belirtmezseniz, Microsoft Office Excel varsayılan çizgi stili ve ağırlığı kullanır.

Bu yöntem tüm aralığı doldurmak olmadan özetlenmektedir. Tüm hücre kenarlıklarını ayarlama için ayarlamanız gerekir Color, LineStyle, ve Weight özelliklerini Borders koleksiyonu. Kenarlık temizlemek için ayarlamanız gerekir LineStyle özelliğine xlLineStyleNone tüm hücreler aralığı.

İsteğe bağlı parametreler

İsteğe bağlı parametreler hakkında daha fazla bilgi için bkz: Office Çözümlerinde İsteğe Bağlı Parametreler.

Örnekler

Aşağıdaki kod örneği, çeşitli biçimlendirme ve özelliklerini görüntülemek gösterilmiştir bir NamedRange Denetim adlı NamedRange1. Özellikle, bu örnek kullanır BorderAround yöntemi çevresinde kalın bir kenarlığı çizmek için NamedRange1.

Bu örnek, bir belge düzeyinde özelleştirme için bulunur.

    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", missing, missing);
    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, missing);
    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 Güvenliği

Ayrıca bkz.

Başvuru

NamedRange Arabirim

Microsoft.Office.Tools.Excel Ad Alanı