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

  • Last updated on