Visio) (Selection.Duplicate 方法

會複製選取範圍。

語法

運算式。重複

表達 代表 Selection 物件的變數。

傳回值

選取項目

註解

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 支援與意見反應。