返回介绍

DistanceLeft 属性

发布于 2019-09-29 10:07:17 字数 899 浏览 1092 评论 0 收藏 0

对于 Rows 对象:返回或设置指定表的左边缘与文档文字间的距离(以磅为单位)。如果 WrapAroundText 为 False,则该属性无效。Single 类型,可读写。

对于 WrapFormat 对象:返回或设置文档文字与指定图形周围的非文本区左边缘之间的距离(以磅为单位)。非文本区的大小和图形,取决于所指定图形的大小和形状,以及 WrapFormat 对象的 Type 和 Side 属性。Single 类型,可读写。

示例

本示例设定文字环绕在活动文档中第一个表格的周围,并且环绕文字与该表格各边的间距为 20 磅。

With ActiveDocument.Tables(1).Rows
 .WrapAroundText = True
 .DistanceLeft = 20
 .DistanceRight = 20
 .DistanceTop = 20
 .DistanceBottom = 20
End With

本示例在活动文档中添加一个椭圆,指定文档文字紧密环绕于该椭圆的周围,并且将文档文字与该椭圆四边之间的间距设置为 0.1 英寸。

Dim shapeOval As Shape

Set shapeOval = ActiveDocument.Shapes.AddShape(msoShapeOval, _
 0, 0, 200, 50)
With shapeOval.WrapFormat
 .Type = wdWrapTight
 .Side = wdWrapBoth
 .DistanceTop = InchesToPoints(0.1)
 .DistanceBottom = InchesToPoints(0.1)
 .DistanceLeft = InchesToPoints(0.1)
 .DistanceRight = InchesToPoints(0.1)
End With

如果你对这篇内容有疑问,欢迎到本站社区发帖提问 参与讨论,获取更多帮助,或者扫码二维码加入 Web 技术交流群。

扫码二维码加入Web技术交流群

发布评论

需要 登录 才能够评论, 你可以免费 注册 一个本站的账号。
列表为空,暂无数据
    我们使用 Cookies 和其他技术来定制您的体验包括您的登录状态等。通过阅读我们的 隐私政策 了解更多相关信息。 单击 接受 或继续使用网站,即表示您同意使用 Cookies 和您的相关数据。
    原文