Publisher (WrapFormat 物件)

代表將文字環繞圖案或圖案範圍的所有屬性。

註解

使用 Shape.TextWrap 屬性可傳回 WrapFormat 物件。

範例

下列範例會將橢圓形新增至使用中出版物，並指定出版物的文字正方形外切該橢圓的左邊和右邊周圍自動換行。 將出版物文字上方、 下方、 左側和右邊正方形之間 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

屬性

• Application
• DistanceAuto
• DistanceBottom
• DistanceLeft
• DistanceRight
• DistanceTop
• Parent
• 側邊
• Type

另請參閱

• Publisher 物件模型參考

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。