Shape.Cut, méthode (Visio)
Supprime un objet ou une sélection et les place dans le Presse-papiers.
expression. Couper (indicateurs)
expression Une variable qui représente uneForme d’objet.
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
Flags | Facultatif | Variant | Détermine comment les formes sont traduites pendant le coupage. |
Aucune
Les valeurs possibles pour Flags sont déclarées par la bibliothèque de types de Visio dans VisCutCopyPasteCodes et sont décrites dans le tableau suivant.
Indicateur | Valeur | Description |
---|---|---|
visCopyPasteNormal | &H0 | Respecte le comportement de copie par défaut. |
visCopyPasteNoTranslate | &H1 | Copie les formes à leur emplacement de coordonnées d’origine. |
visCopyPasteCenter | &H2 | Copie les formes au centre de la page. |
visCopyPasteNoHealConnectors | &H4 | Ne pas nettoyer les connecteurs attachés pour couper les formes. |
visCopyPasteNoContainerMembers | &H8 | Ne pas couper et copier les membres non sélectionnés de conteneurs ou de listes. |
visCopyPasteNoAssociatedCallouts | &H16 | Ne pas couper et copier les légendes non sélectionnées associées aux formes. |
visCopyPasteDontAddToContainers | &H32 | Ne pas ajouter les formes collées à des conteneurs sous-jacents. |
visCopyPasteNoCascade | &H64 | Ne pas décaler les formes lors de la copie. |
Définir Flags sur visCopyPasteNormal est l’équivalent du comportement dans l’interface utilisateur. Vous devez utiliser visCopyPasteNormal et les autres indicateurs de manière cohérente. Par exemple, si vous utilisez visCopyPasteNoTranslate pour copier, il convient d’utiliser également cette valeur pour coller, car c’est la seule manière de garantir que les formes sont collées à leur emplacement de coordonnées d’origine.
L’exemple suivant indique comment utiliser la méthode Cut. Elle dessine un rectangle, puis le coupe de la page (et le place dans le Presse-papiers).
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
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.