Shape.Duplicate 方法 (Visio)

重复对象。

语法

表达式。重复

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

返回值

Shape

说明

Duplicate 方法重复指定的对象或选定内容，并将副本添加到原始对象或选定内容所在的页面上。 使用 Duplicate 方法等效于单击“开始”选项卡上“粘贴”菜单上的“复制”。

当用于 Shape 对象时，Duplicate 方法重复形状。

当用于 Selection 对象时，Duplicate 方法重复选定内容。

示例

以下示例显示如何重复 Shape 对象。 该代码也适用于 Selection 对象。

运行以下宏之前，请确保绘图页在 Microsoft Visio 窗口中处于活动状态。

 
Public Sub Duplicate_Example() 
 
 Dim vsoOriginalShape As Visio.Shape 
 Dim vsoDuplicateShape As Visio.Shape 
 
 Set vsoOriginalShape = ActivePage.DrawLine(1, 1, 5, 5) 
 
 Set vsoDuplicateShape = vsoOriginalShape.Duplicate 
 vsoDuplicateShape.Cells("BeginY") = "2" 
 
End Sub

支持和反馈

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