共用方式為

ShapeRange.TextWrap 屬性 (Publisher)

  • 發行項

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

語法

運算式。TextWrap

表達 代表 ShapeRange 物件的 變數。

範例

下列範例會將橢圓形新增至使用中出版物，並指定出版物文字繞著環繞橢圓的方形左右兩側。 將出版物文字上方、 下方、 左側和右邊正方形之間 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 支援與意見反應。