Shape.IncrementRotation, méthode (Project)

Article
10/25/2024

Fait pivoter la forme autour de l’axe des z selon le nombre de degrés spécifié.

Syntaxe

expression. IncrementRotation (Incrémenter)

expression Une variable qui représente uneForme d’objet.

Paramètres

Nom	Requis/Facultatif	Type de données	Description
Increment	Obligatoire	Unique	Nombre de degrés dont la forme doit faire l’objet d’une rotation. Spécifiez une valeur positive pour faire pivoter la forme dans le sens des aiguilles d'une montre, ou inversement, une valeur négative pour la faire pivoter dans le sens inverse.
Increment	Obligatoire	FLOAT
Nom	Requis/Facultatif	Type de données	Description

Valeur renvoyée

Nothing

Remarques

Le paramètre Increment peut être une valeur comprise entre -3600 et 3600.

Exemple

L’exemple suivant montre la différence entre la rotation d’une forme et la rotation d’une plage de formes. L’exemple crée une plage de formes qui contient deux cylindres, fait pivoter la plage de formes de 30 degrés dans le sens des aiguilles d’une montre, puis fait pivoter la deuxième forme de la plage de 30 degrés dans le sens inverse des aiguilles d’une montre. Si vous définissez un point d’arrêt sur la dernière instruction IncrementRotation , puis parcourez le code, vous pouvez voir comment fonctionne la rotation.

Sub RotateShapes()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim shpGroup As shape
    Dim reportName As String
    Dim sRange1 As ShapeRange
    
    reportName = "Rotate Report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set shp1 = theReport.Shapes.AddShape(msoShapeCan, 20, 30, 100, 100)
    Set shp2 = theReport.Shapes.AddShape(msoShapeCan, 140, 30, 100, 100)
        
    Set sRange1 = theReport.Shapes.Range(Array(1, 2))
    sRange1.IncrementRotation 30

    sRange1(2).IncrementRotation -30
End Sub

Voir aussi

Shape, objet

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