Shape.MoveToPage 方法 (Publisher)

将形状移动到指定的页。

语法

表达式。MoveToPage (页， 左侧， 顶部)

表达 一个代表 Shape 对象的变量。

参数

名称	必需/可选	数据类型	说明
Page	必需	长整型	形状将移动到的页。
Left	可选	Variant	形状在页面上的左侧位置。
Top	可选	Variant	形状在页面上的顶端位置。

示例

下面的 Microsoft Visual Basic for Applications (VBA) 宏显示如何使用 MoveToPage 方法将移动的第一个形状的 Shapes 集合中出版物第一页上到出版物第二页上的相同的相对位置。

此代码假设当前出版物至少包含两页，并且出版物第一页上至少有一个形状。

Public Sub MoveToPage_Example() 
 
 Dim pubShape As Publisher.Shape 
 
 Set pubShape = ThisDocument.Pages(1).Shapes(1) 
 
 pubShape.MoveToPage 2 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。