BorderArtFormat.Set メソッド (Publisher)

指定した図形に適用される飾り枠の種類を設定します。

構文

式。Set (BorderArtName)

式BorderArtFormat オブジェクトを表す変数。

パラメーター

注釈

Name プロパティを使用して、図形に適用される BorderArt の種類を設定することもできます。

例

次の使用例は、作業中の文書の各ページで、各図形に飾り枠があるか調べます。 飾り枠があれば、すべて同じ種類に設定します。

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 のサポートおよびフィードバックを参照してください。