WrapFormat.DistanceRight 屬性 (Publisher)

當 WrapFormat 物件的 Type 屬性設定為 pbWrapTypeSquare 時，會傳回或設定一個 Variant，表示文件文字與指定圖形右邊緣之間的距離) 點 (。 讀取/寫入。

語法

運算式。DistanceRight

運算式 代表 WrapFormat 物件的變數。

範例

此範例會將橢圓形新增到使用中的文件，並指定文件文字圍繞圍繞橢圓的方形的左右兩側進行換行。 此範例會在文件文字與正方形的頂端、底部、左側和右側之間設定 0.1 英吋的邊界。

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

  • 上次更新時間：