Свойство Shape.BorderArt (издатель)

Возвращает объект BorderArtFormat , представляющий тип BorderArt, применяемый к указанной фигуре. Возвращает значение "Отказано в разрешении", если элемент BorderArt не был применен к фигуре. Только для чтения.

Синтаксис

expression. BorderArt

Выражение Переменная, представляющая объект Shape .

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

BorderArtFormat

Замечания

BorderArt — это границы рисунков, которые можно применять к текстовым полям, рамкам рисунков или прямоугольникам.

Используйте свойство BorderArt для применения, изменения и удаления BorderArt из фигур в публикациях.

Пример

В следующем примере проверяется наличие элемента BorderArt на каждой фигуре для каждой страницы активной публикации. Если BorderArt существует, он удаляется.

Sub DeleteBorderArt() 
 
Dim anyPage As Page 
Dim anyShape As Shape 
 
For Each anyPage in ActiveDocument.Pages 
 For Each anyShape in anyPage.Shapes 
 With anyShape.BorderArt 
 If .Exists = True Then 
 .Delete 
 End If 
 End With 
 Next anyShape 
 Next anyPage 
End Sub

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

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