閱讀英文

共用方式為


Visio (的 Shape.Copy 方法)

會將圖形複製到剪貼簿。

語法

表達式複製 (旗標)

expression 一個用於表示 Shape 物件的變數。

參數

名稱 必要/選用 資料類型 描述
Flags 選用 Variant 會決定複製作業期間如何轉譯圖形。

傳回值

註解

Flags 的可能值在 VisCutCopyPasteCodes 中是由 Visio 型別程式庫宣告,分別說明在以下表格中。

Flag 描述
visCopyPasteNormal &H0 使用預設的複製行為。
visCopyPasteNoTranslate &H1 將圖形複製到原始座標位置。
visCopyPasteCenter &H2 將圖形複製到頁面的中心。
visCopyPasteNoHealConnectors &H4 不會清除附加至已剪下圖形的連接器。
visCopyPasteNoContainerMembers &H8 不會剪下或複製容器或清單的未選取成員。
visCopyPasteNoAssociatedCallouts &H16 不會剪下或複製與圖形相關聯的未選取註標。
visCopyPasteDontAddToContainers &H32 不會剪下或貼上圖形至任何基礎容器。
visCopyPasteNoCascade &H64 在複製時不要位移圖形。

Flags 設定為 visCopyPasteNormal 相當於使用者介面中的相同行為。 您應該一致地使用 visCopyPasteNormal 和其他旗標。 例如,如果您使用 visCopyPasteNoTranslate 進行複製,也應該使用該值進行貼上,因為只有這麼做才能確保圖形會貼到它們的原始座標位置。

若要在不使用剪貼簿的情況下進行複製,請使用 Duplicate 方法。

範例

下列範例示範如何使用 Copy 方法。 它會繪製矩形,然後將它複製到剪貼簿。

 
Public Sub Copy_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1) 
 
 'Copy the shape to the Clipboard. 
 vsoShape.Copy 
 
End Sub

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應