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