Shape.Copy, méthode (Visio)
Copie une forme dans le Presse-papiers.
expression. Copier (indicateurs)
expression Une variable qui représente uneForme d’objet.
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
Flags | Facultatif | Variant | Détermine la façon dont les formes sont converties pendant la copie. |
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 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.
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
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.