Visio (的 Shape.Cut 方法)

會刪除物件或選取範圍，並將其置於剪貼簿中。

語法

表達式。剪下 (旗標)

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 進行複製，也應該使用該值進行貼上，因為只有這麼做才能確保圖形會貼到它們的原始座標位置。

範例

下列範例示範如何使用 Cut 方法。 它會繪製矩形，然後從頁面剪下 (，並將它放在剪貼簿) 。

 
Public Sub Cut_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1) 
 
 'Cut shape from the page 
 vsoShape.Cut 
 
End Sub

支援和意見反應

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