BorderArtFormat.Set 方法 (Publisher)

设置应用于指定形状的艺术型边框的类型。

语法

表达式。设置 (BorderArtName)

表达 一个代表 BorderArtFormat 对象的变量。

参数

名称	必需/可选	数据类型	说明
BorderArtName	必需	Variant	应用于指定形状的艺术型边框类型的名称。

备注

还可以使用 Name 属性设置应用于形状的艺术型边框的类型。

示例

下面的示例测试活动文档每一页中的各个形状上是否存在艺术型边框。 所有查找到的艺术型边框都将被设置为相同的类型。

Sub SetBorderArt() 
Dim anyPage As Page 
Dim anyShape As Shape 
Dim strBorderArtName As String 
 
strBorderArtName = Document.BorderArts(1).Name 
 
For Each anyPage in ActiveDocument.Pages 
 For Each anyShape in anyPage.Shapes 
 With anyShape.BorderArt 
 If .Exists = True Then 
 .Set(strBorderArtName) 
 End If 
 End With 
 Next anyShape 
 Next anyPage 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。