Page.XOffsetWithinReaderSpread 属性 (Publisher)
返回一个 Single 类型的值,该值代表从读取器左边缘到页面左 边缘) 点 (距离。 此为只读属性。
语法
表达式。XOffsetWithinReaderSpread
表达 一个代表 Page 对象的变量。
返回值
单精度
示例
本示例在当前出版物的第二页和第三页上创建一个形状,然后将该形状在第三页上的位置设置为与第二页上的形状对角相反的页面角。 为了使本示例生效,当前出版物必须至少具有三个页面。
Sub OffsetShapePositions()
Dim shpOne As Shape
Dim intLeft As Integer
Dim intTop As Integer
Dim intWidth As Integer
Dim intHeight As Integer
With ActiveDocument
.ViewTwoPageSpread = True
With .Pages
intWidth = 150
intHeight = 150
intLeft = (.Item(2).Width / 2) - intWidth
intTop = InchesToPoints(7)
Set shpOne = .Item(2).Shapes.AddShape _
(Type:=msoShape5pointStar, Left:=intLeft, _
Top:=intTop, Width:=intWidth, Height:=intHeight)
intLeft = (.Item(3).XOffsetWithinReaderSpread - _
.Item(2).XOffsetWithinReaderSpread) + (.Item(2) _
.Width - shpOne.Left - shpOne.Width)
intTop = (.Item(3).YOffsetWithinReaderSpread - _
.Item(2).YOffsetWithinReaderSpread) + (.Item(2) _
.Height - shpOne.Top - shpOne.Height)
.Item(2).Shapes.AddShape Type:=msoShape5pointStar, _
Left:=intLeft, Top:=intTop, Width:=intWidth, _
Height:=intHeight
End With
End With
End Sub
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。
反馈
https://aka.ms/ContentUserFeedback。
即将发布:在整个 2024 年,我们将逐步淘汰作为内容反馈机制的“GitHub 问题”,并将其取代为新的反馈系统。 有关详细信息,请参阅:提交和查看相关反馈