Lire en anglais

Partager via


Shape.Cut, méthode (Visio)

Supprime un objet ou une sélection et les place dans le Presse-papiers.

Syntaxe

expression. Couper (indicateurs)

expression Une variable qui représente uneForme d’objet.

Paramètres

Nom Requis/Facultatif Type de données Description
Flags Facultatif Variant Détermine comment les formes sont traduites pendant le coupage.

Valeur renvoyée

Aucune

Remarques

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.

Exemple

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

Assistance et commentaires

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.