Shapes.AddCurve, méthode (Publisher)
Ajoute un nouvel objet Shape représentant une courbe de Bézier à la collection Shapes spécifiée.
Syntaxe
expression. AddCurve (SafeArrayOfPoints)
expression Variable qui représente un objet Shapes.
Paramètres
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
SafeArrayOfPoints | Obligatoire | Variant | Tableau de paires de coordonnées qui indique les sommets et points de contrôle de la courbe. Le premier point que vous spécifiez est le sommet de départ, et les deux points suivants sont des points de contrôle pour le premier segment de Bézier. Pour chaque segment supplémentaire de la courbe, vous spécifiez un sommet et deux points de contrôle. Le dernier point que vous spécifiez est le sommet de fin de la courbe. Notez que vous devez toujours spécifier 3n + 1 points, où n est le nombre de segments dans la courbe. |
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 »).
Exemple
L’exemple ci-après ajoute une courbe de Bézier à deux segments à la première page de la composition active.
Dim shpCurve As Shape
Dim arrPoints(1 To 4, 1 To 2) As Single
arrPoints(1, 1) = 0
arrPoints(1, 2) = 0
arrPoints(2, 1) = 72
arrPoints(2, 2) = 72
arrPoints(3, 1) = 144
arrPoints(3, 2) = 36
arrPoints(4, 1) = 216
arrPoints(4, 2) = 108
Set shpCurve = ActiveDocument.Pages(1).Shapes.AddCurve _
(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