Lire en anglais

Partager via


Shape.Copy, méthode (Visio)

Copie une forme dans le Presse-papiers.

Syntaxe

expression. Copier (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 la façon dont les formes sont converties pendant la copie.

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 la valeur 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.

Pour effectuer une copie sans utiliser le Presse-papiers, appliquez la méthode Duplicate.

Exemple

L’exemple suivant montre comment utiliser la méthode Copy . Un rectangle y est dessiné puis copié dans le Presse-papiers.

 
Public Sub Copy_Example() 
 
 Dim vsoShape As Visio.Shape 
 
 Set vsoShape = ActivePage.DrawRectangle(1, 5, 5, 1) 
 
 'Copy the shape to the Clipboard. 
 vsoShape.Copy 
 
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.