Visio (的 Page.Paste 方法)

將剪貼簿的內容貼到物件中。

語法

表達式。貼上 (旗標)

表達 代表 Page 對象的變數。

參數

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

傳回值

無

註解

Paste 方法只能與屬於群組圖形的 Shape 物件搭配使用。 使用圖形的 Type 屬性來判斷它是否為群組。

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

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

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

如果您必須控制貼上資訊的格式，並 (選擇性) 建立來源檔案 (例如，Microsoft Word 文件) 的連結，請使用 PasteSpecial 方法。

範例

這個 Microsoft Visual Basic for Applications (VBA) 宏會示範如何使用 Paste 方法。 它會繪製矩形、複製它，然後將復本貼到繪圖頁面。

 
Public Sub Paste_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 'Draw a rectangle. 
 Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1) 
 
 'Copy the shape to the Clipboard. 
 vsoShape.Copy 
 
 'Paste the copy onto the drawing page. 
 ActivePage.Paste 
 
End Sub

支援和意見反應

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