Publisher) (Shape.TextWrap 屬性

會傳回 WrapFormat 物件代表文字環繞圖案或圖案範圍的屬性。

語法

運算式。TextWrap

expression 一個用於表示 Shape 物件的變數。

範例

下列範例會將橢圓形新增到使用中的出版物，並指定出版物文字圍繞在邊界橢圓形之方形的左右兩邊。 將出版物文字上方、 下方、 左側和右邊正方形之間 0.1 英吋的邊界。

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 支援與意見反應。