BorderArt オブジェクト (Publisher)

  • [アーティクル]

利用可能な飾り枠の種類を表します。 飾り枠は、テキスト ボックス、図枠、四角形に適用できる画像の枠です。 飾り枠 のオブジェクトは、 BorderArts コレクションのメンバーです。 BorderArts コレクションには、指定された文書で使用可能なすべての飾り枠が含まれています。

注釈

BorderArts コレクションには、指定された文書にユーザーによって作成されたすべての飾り枠の種類が含まれています。

BorderArts コレクションの Item プロパティを使用して、特定の BorderArt オブジェクトを取得します。 Item プロパティの引数 Index には BorderArt オブジェクトの番号または名前を指定できます。

Name プロパティを使用すると、画像に適用する飾り枠の種類を指定します。

注:

Name は BorderArt オブジェクトと BorderArtFormat オブジェクトの両方の既定のプロパティであるため、BorderArt 型を設定するときに明示的に指定する必要はありません。 ステートメント Shape.BorderArtFormat = Document.BorderArts(1) は と Shape.BorderArtFormat.Name = Document.BorderArts(1).Name同じです。

例

次の使用例は、作業中の文書から Apples という名前の BorderArt を返します。

Dim bdaTemp As BorderArt 
 
Set bdaTemp = ActiveDocument.BorderArts.Item (Index:="Apples")

次の使用例は 、Name プロパティを使用して、ドキュメント内のすべての BorderArt を同じ型に設定します。

Sub SetBorderArtByName() 
 
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 
.Name = strBorderArtName 
End If 
End With 
Next anyShape 
Next anyPage 
End Sub

プロパティ

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。