多种对象![]() |
代表在图形或图形区周围环绕文字的属性。
用 WrapFormat 属性可返回 WrapFormat 对象。下列示例实现的功能是:将一个椭圆添至活动文档,并指定文档文字环绕在椭圆周围的方框的左右两边。在文档文字与图形的方框的上、下、左、右四边之间都有 0.1 英寸的边距。
Set myOval = _
ActiveDocument.Shapes.AddShape(msoShapeOval, 36, 36, 100, 35)
With myOval.WrapFormat
.Type = wdWrapSquare
.Side = wdWrapBoth
.DistanceTop = InchesToPoints(0.1)
.DistanceBottom = InchesToPoints(0.1)
.DistanceLeft = InchesToPoints(0.1)
.DistanceRight = InchesToPoints(0.1)
End With