Curve.Start, propriété (Visio)

Article
04/07/2023

Retourne le début du domaine de paramètre d’un objet Curve . En lecture seule.

Syntaxe

expression. Commencer

Expression Variable qui représente un objet Curve .

Valeur renvoyée

Double

Remarques

La propriété Start d'un objet Curve renvoie la valeur du point de départ du domaine de paramètres de la courbe. Un objet Curve se décrit lui-même en termes de domaine de paramètres, constitué de la plage [Start(),End()] où Start() produit le point de départ de la courbe. Remarquez que la valeur Start n'est pas une paire coordonnée. Elle représente plutôt la position relative du point de départ sur la courbe. Pour un trait, par exemple, la valeur de Start est généralement 0, la valeur de End est 1 et vous pouvez utiliser la méthode Point de l'objet Curve pour déterminer les coordonnées de n'importe quel point sur la courbe en déterminant l'emplacement relatif du point entre les points de départ et de fin.

Exemple

Cette macro Microsoft Visual Basic pour Applications (VBA) montre comment utiliser la propriété Start pour afficher la valeur du point de départ d’une courbe. Elle utilise la méthode Point pour déterminer le milieu de la courbe.

 
Sub Start_Example() 
 
 Dim vsoShape As Visio.Shape 
 Dim vsoPaths As Visio.Paths 
 Dim vsoPath As Visio.Path 
 Dim vsoCurve As Visio.Curve 
 Dim dblStartpoint As Double 
 Dim dblEndpoint As Double 
 Dim dblX As Double 
 Dim dblY As Double 
 Dim intOuterLoopCounter As Integer 
 Dim intInnerLoopCounter As Integer 
 
 'Draw a shape and get its Paths collection. 
 Set vsoPaths = ActivePage.DrawOval(1, 1, 4, 4).Paths 
 
 'Iterate through the Path objects in the Paths collection. 
 For intOuterLoopCounter = 1 To vsoPaths.Count 
 
 Set vsoPath = vsoPaths.Item(intOuterLoopCounter) 
 Debug.Print "Path object " & intOuterLoopCounter 
 
 'Iterate through the curves in a Path object. 
 For intInnerLoopCounter = 1 To vsoPath.Count 
 
 Set vsoCurve = vsoPath(intInnerLoopCounter) 
 Debug.Print "Curve number " & intInnerLoopCounter 
 
 'Display the start point of the curve. 
 dblStartpoint = vsoCurve.Start 
 Debug.Print "Startpoint = " & dblStartpoint 
 
 'Display the endpoint of the curve. 
 dblEndpoint = vsoCurve.End 
 Debug.Print "Endpoint = " & dblEndpoint 
 
 'Find the midpoint of the curve. 
 vsoCurve.Point ((dblEndpoint - dblStartpoint) / 2), dblX, dblY 
 Debug.Print "Midpoint: x = " & dblx; ", y = " & dblY 
 
 Next intInnerLoopCounter 
 Debug.Print "This path has " & intInnerLoopCounter - 1 & " curve object(s)." 
 
 Next intOuterLoopCounter 
 Debug.Print "This shape has " & intOuterLoopCounter - 1 & " path object(s)." 
 
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.

Partager via