次の方法で共有


ShapeRange.TextWrap プロパティ (Publisher)

図形または図形範囲の周囲の折り返しに関するプロパティを表す WrapFormat オブジェクトを返します。

構文

TextWrap

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

次の使用例は、作業中の文書に楕円を追加し、文書のテキストが楕円を囲む四角形の左右の辺を囲むように指定します。 四角形の上端、下端、左端、および右端と文書の文字列との間隔を 0.1 インチ (2.5mm) に設定します。

Sub SetTextWrapFormatProperties() 
 Dim shpOval As Shape 
 
 Set shpOval = ActiveDocument.Pages(1).Shapes.AddShape(Type:=msoShapeOval, _ 
 Left:=36, Top:=36, Width:=100, Height:=35) 
 With shpOval.TextWrap 
 .Type = pbWrapTypeSquare 
 .Side = pbWrapSideBoth 
 .DistanceAuto = msoFalse 
 .DistanceTop = InchesToPoints(0.1) 
 .DistanceBottom = InchesToPoints(0.1) 
 .DistanceLeft = InchesToPoints(0.1) 
 .DistanceRight = InchesToPoints(0.1) 
 End With 
End Sub

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

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