Объект границы (Excel)

Представляет границу объекта.

Примечания

Большинство объектов с границами (за исключением объектов Range и Style ) имеют границу, которая рассматривается как единый объект, независимо от того, сколько у нее сторон. Всю границу необходимо вернуть как единое целое.

Используйте свойство Border , например объекта TrendLine , чтобы вернуть объект Border для этого типа объекта.

Обратите внимание, что визуальные свойства объекта Border взаимосвязаны; то есть изменение одного свойства может вызвать изменения в другом. В большинстве случаев индуцированные изменения служат для того, чтобы сделать границу видимой (что может быть или не быть желательным). Однако возможны и другие (более неожиданные) результаты.

Ниже приведен пример взаимодействия с неожиданными результатами. В этом примере, если для свойства Weight border's задать значение xlThick, свойство LineStyle станет xlSolid, несмотря на то, что ранее оно было установлено в xlDashDotDot.

   Sub InterlockingExample()
       Dim SomeRange As Range
       Dim SomeBorder As Border
       
       Set MyRange = Selection
       Set SomeBorder = MyRange.Borders(xlDiagonalDown)
       SomeBorder.Color = RGB(255, 0, 0)
       Debug.Print "SomeBorder.LineStyle = " & SomeBorder.LineStyle   'SomeBorder.LineStyle = 1
       Debug.Print "Set SomeBorder.LineStyle = xlDashDotDot"          'Set SomeBorder.LineStyle = xlDashDotDot
       SomeBorder.LineStyle = xlDashDotDot
       Debug.Print "SomeBorder.LineStyle = " & SomeBorder.LineStyle   'SomeBorder.LineStyle = 5
       Debug.Print "Set SomeBorder.Weight = xlThick"                  'Set SomeBorder.Weight = xlThick
       SomeBorder.Weight = xlThick
       Debug.Print "SomeBorder.LineStyle = " & SomeBorder.LineStyle   'SomeBorder.LineStyle = 1
   End Sub

Пример

В приведенном ниже примере изменяются тип и стиль линии тренда на активной диаграмме.

With ActiveChart.SeriesCollection(1).Trendlines(1) 
 .Type = xlLinear 
 .Border.LineStyle = xlDash 
End With

Объекты "Диапазон " и "Стиль " имеют четыре дискретные границы: левую, правую, верхнюю и нижнюю, которые можно возвращать по отдельности или группой. Используйте свойство Borders , чтобы вернуть коллекцию Borders , которая содержит все четыре границы и рассматривает их как одно целое. В следующем примере добавляется двойная граница в ячейку A1 на первом листе.

Worksheets(1).Range("A1").Borders.LineStyle = xlDouble

Используйте Borders (индекс), где индекс определяет границу, чтобы вернуть один объект Border . В следующем примере задается цвет нижней границы ячеек A1:G1.

Worksheets("Sheet1").Range("A1:G1"). _ 
 Borders(xlEdgeBottom).Color = RGB(255, 0, 0)

Индекс может быть одной из следующих констант XlBordersIndex : xlDiagonalDown, xlDiagonalUp, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, xlEdgeTop, xlInsideHorizontal или xlInsideVertical.

Свойства

См. также

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

  • Last updated on