从形状或形状区域复制格式,以便可以使用 Apply 方法将其复制到另一个形状或形状区域。
语法
表达式。拾音器
expression 一个代表 Shape 对象的变量。
返回值
Nothing
注解
您必须使用 PickUp 方法复制格式从一个形状或形状范围之前使用 Apply 方法;否则,就会出错。
示例
以下示例将当前出版物的第一个形状的格式复制到当前出版物的第二个形状。
With ActiveDocument.Pages(1)
.Shapes(1).PickUp
.Shapes(2).Apply
End With
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。