Свойство ShapeRange.Line (Издатель)
Возвращает объект LineFormat , содержащий свойства форматирования строк для указанной фигуры. Для строки объект LineFormat представляет саму строку; Для фигуры с границей объект LineFormat представляет границу.
Синтаксис
expression. Линии
Выражение Переменная, представляющая объект ShapeRange .
Пример
В этом примере к активной публикации добавляется синяя пунктирная линия.
With ActiveDocument.Pages(1).Shapes _
.AddLine(BeginX:=10, BeginY:=10, _
EndX:=250, EndY:=250).Line
.DashStyle = msoLineDashDotDot
.ForeColor.RGB = RGB(50, 0, 128)
End With
В этом примере на первую страницу добавляется крестик, а затем устанавливается его граница толщиной в 8 пунктов и красная.
With ActiveDocument.Pages(1).Shapes _
.AddShape(Type:=msoShapeCross, _
Left:=10, Top:=10, Width:=50, Height:=70).Line
.Weight = 8
.ForeColor.RGB = RGB(255, 0, 0)
End With
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.