NamedRange.BorderAround Метод (2007 System)

Статья
11/16/2008

Обновлен: Ноябрь 2007

Добавляет границу элементу управления NamedRange и задает свойства Color, LineStyle и Weight для новой границы.

Пространство имен: Microsoft.Office.Tools.Excel
Сборка: Microsoft.Office.Tools.Excel.v9.0 (в Microsoft.Office.Tools.Excel.v9.0.dll)

Синтаксис

'Декларация
Public Function BorderAround ( _
    LineStyle As Object, _
    Weight As XlBorderWeight, _
    ColorIndex As XlColorIndex, _
    Color As Object _
) As Object
'Применение
Dim instance As NamedRange
Dim LineStyle As Object
Dim Weight As XlBorderWeight
Dim ColorIndex As XlColorIndex
Dim Color As Object
Dim returnValue As Object

returnValue = instance.BorderAround(LineStyle, _
    Weight, ColorIndex, Color)

public Object BorderAround(
    Object LineStyle,
    XlBorderWeight Weight,
    XlColorIndex ColorIndex,
    Object Color
)

Параметры

LineStyle
Тип: System.Object
Стиль линий для границы. Может иметь одно из следующих значений XlLineStyle:

Weight
Тип: Microsoft.Office.Interop.Excel.XlBorderWeight
Вес границы. Может быть одна из следующих констант XlBorderWeight:
- xlHairline
- xlMedium
- xlThick
- xlThin

ColorIndex
Тип: Microsoft.Office.Interop.Excel.XlColorIndex
Цвет границы как указатель на текущую цветовую палитру или как константа XlColorIndex. Может быть одна из следующих констант XlColorIndex:
- xlColorIndexAutomatic
- xlColorIndexNone

Color
Тип: System.Object
Цвет границы как значение RGB.

Возвращаемое значение

Тип: System.Object

Заметки

Необходимо указывать один из режимов: ColorIndex или Color, но не оба сразу.

Можно указывать один из режимов: LineStyle или Weight, но не оба сразу. Если ни один из аргументов не указан, Microsoft Office Excel использует стиль и толщину линий по умолчанию.

Данный метод структурирует весь диапазон без его заполнения. Чтобы задать границы для всех ячеек, необходимо задать свойства Color, LineStyle и Weight для коллекции Borders. Чтобы очистить границу, необходимо присвоить свойству LineStyle значение xlLineStyleNone для всех ячеек в диапазоне.

Необязательные параметры

Сведения о необязательных параметрах см. в разделе Общие сведения о необязательных параметрах в решениях Office.

Примеры

В следующем примере кода демонстрируется задание ряда характеристик форматирования и отображения элемента управления NamedRange с именем NamedRange1. В частности, в данном примере метод BorderAround используется для рисования толстой линии границы вокруг NamedRange1.

В этом примере демонстрируется настройка уровня документа.

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();
    }
}

Разрешения

Полное доверие для непосредственно вызывающего метода. Этот член не может быть использован частично доверенным кодом. Дополнительные сведения см. в разделе Использование библиотек из не вполне надежного кода.