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