BorderArtFormat.StretchPictures プロパティ (Publisher)

True に設定すると、指定された飾り枠を構成する図枠が、適用先の図形に合わせて拡大/縮小します。 読み取り/書き込みが可能な Boolean です。

構文

式。StretchPictures

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

戻り値

Boolean

注釈

指定されたオブジェクトに飾り枠が適用されていない場合は、"アクセスが拒否されました。" というエラーが返されます。

[画像を引き伸ばさない] ダイアログ ボックスのコントロールに合わせて画像をストレッチするに対応します。

例

次の使用例は、作業中の文書の各ページの各図形に、飾り枠が適用されているかどうかを調べます。 飾り枠が適用されている場合は、その飾り枠が拡大/縮小するように設定します。

Sub StretchBorderArt() 
 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 
 .StretchPictures = True 
 End If 
 End With 
 Next anyShape 
 Next anyPage 
End Sub

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

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