ShapeRange. IncrementRotation, méthode (Excel)ShapeRange.IncrementRotation method (Excel)

Cette méthode modifie la rotation de la forme spécifiée autour de l’axe z selon le nombre de degrés spécifiés.Changes the rotation of the specified shape around the z-axis by the specified number of degrees. Utilisez la propriété Rotation pour définir la rotation absolue de la forme.Use the Rotation property to set the absolute rotation of the shape.

SyntaxeSyntax

expression. IncrementRotation (Incrément)expression.IncrementRotation (Increment)

expression Variable qui représente un objet ShapeRange .expression A variable that represents a ShapeRange object.

ParamètresParameters

NomName Requis/FacultatifRequired/Optional Type de donnéesData type DescriptionDescription
IncrementIncrement ObligatoireRequired UniqueSingle Indique de combien de degrés la forme doit pivoter autour de l'axe z.Specifies how far the shape is to be rotated horizontally, in degrees. 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.A positive value rotates the shape clockwise; a negative value rotates it counterclockwise.

RemarquesRemarks

Pour faire pivoter une forme en trois dimensions autour de l’axe x ou y, utilisez la méthode IncrementRotationX ou la méthode IncrementRotationY .To rotate a three-dimensional shape around the x-axis or the y-axis, use the IncrementRotationX method or the IncrementRotationY method.

ExempleExample

Cet exemple crée une copie de la première forme présente dans myDocument, définit le motif de remplissage de la copie, la déplace de 70 points vers la droite et de 50 points vers le haut, et la fait pivoter de 30 degrés dans le sens des aiguilles d’une montre.This example duplicates shape one on myDocument, sets the fill for the duplicate, moves it 70 points to the right and 50 points up, and rotates it 30 degrees clockwise.

Set myDocument = Worksheets(1) 
With myDocument.Shapes(1).Duplicate 
 .Fill.PresetTextured msoTextureGranite 
 .IncrementLeft 70 
 .IncrementTop -50 
 .IncrementRotation 30 
End With

Assistance et commentairesSupport and feedback

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ?Have questions or feedback about Office VBA or this 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.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.