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 支持和反馈，获取有关如何接收支持和提供反馈的指南。