Shape.Cut method (Visio)
Deletes an object or selection and places it on the Clipboard.
Syntax
expression.Cut (Flags)
expression A variable that represents a Shape object.
Parameters
| Name | Required/Optional | Data type | Description |
|---|---|---|---|
| Flags | Optional | Variant | Determines how shapes are translated during the cut operation. |
Return value
Nothing
Remarks
Possible values for Flags are declared by the Visio type library in VisCutCopyPasteCodes, and are described in the following table.
| Flag | Value | Description |
|---|---|---|
| visCopyPasteNormal | &H0 | Follow default copying behavior. |
| visCopyPasteNoTranslate | &H1 | Copy shapes to their original coordinate locations. |
| visCopyPasteCenter | &H2 | Copy shapes to the center of the page. |
| visCopyPasteNoHealConnectors | &H4 | Do not clean up connectors attached to cut shapes. |
| visCopyPasteNoContainerMembers | &H8 | Do not cut and copy unselected members of containers or lists. |
| visCopyPasteNoAssociatedCallouts | &H16 | Do not cut and copy unselected callouts associated with shapes. |
| visCopyPasteDontAddToContainers | &H32 | Do not add pasted shapes to any underlying containers. |
| visCopyPasteNoCascade | &H64 | Do not offset shapes on copy. |
Setting Flags to visCopyPasteNormal is the equivalent of the behavior in the user interface. You should use visCopyPasteNormal and the other flags consistently. For example, if you use the value visCopyPasteNoTranslate to copy, you should also use that value to paste, because that is the only way to ensure that shapes are pasted to their original coordinate location.
Example
The following example shows how to use the Cut method. It draws a rectangle and then cuts it from the page (and places it on the Clipboard).
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
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.