Shapes.AddPolyline, méthode (Publisher)
Ajoute un nouvel objet Shape représentant un polyligne ouvert ou un polygone fermé à la collection Shapes spécifiée.
Syntaxe
expression. AddPolyline (SafeArrayOfPoints)
expression Variable qui représente un objet Shapes.
Paramètres
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
SafeArrayOfPoints | Obligatoire | Variant | Couple de coordonnées qui indique les sommets des polylignes ou polygones. |
Valeur renvoyée
Shape
Remarques
Pour les éléments de tableau dans SafeArrayOfPoints, les valeurs numériques sont évaluées en points ; les chaînes peuvent être dans n’importe quelle unité prise en charge par Microsoft Publisher (par exemple, « 2,5 pouces »).
Pour former un polygone fermé, affectez les mêmes coordonnées aux premier et dernier sommets dans le dessin en forme de polyligne.
Exemple
L'exemple ci-après ajoute un triangle à la première page de la composition active. Comme les premier et dernier points ont les mêmes coordonnées, le polygone est fermé.
Dim shpPolyline As Shape
Dim arrPoints(1 To 4, 1 To 2) As Single
arrPoints(1, 1) = 25
arrPoints(1, 2) = 100
arrPoints(2, 1) = 100
arrPoints(2, 2) = 150
arrPoints(3, 1) = 150
arrPoints(3, 2) = 50
arrPoints(4, 1) = 25
arrPoints(4, 2) = 100
Set shpPolyline = ActiveDocument.Pages(1).Shapes.AddPolyline _
(SafeArrayOfPoints:=arrPoints)
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour