Partager via

Propriété Shape.Rotation (Publisher)

  • Article

Renvoie ou définit une valeur de type Single qui représente le nombre de degrés de rotation de la forme spécifiée autour de l’axe des z. Une valeur positive indique une rotation vers la droite ; une valeur négative indique une rotation dans le sens inverse. Lecture-écriture.

Syntaxe

expression. Rotation

Expression Variable qui représente un objet Shape .

Remarques

Pour définir la rotation d’une forme tridimensionnelle autour de l’axe x ou de l’axe y, utilisez la propriété RotationX ou RotationY de l’objet ThreeDFormat .

Exemple

Cet exemple calque la rotation de toutes les formes de la première page de la composition active sur la rotation de la première forme. Cet exemple suppose qu’il existe au moins deux formes sur la première page de la composition active.

Sub SetShapeRotation() 
 Dim sngRotation As Single 
 Dim intCount As Integer 
 With ActiveDocument.Pages(1).Shapes 
 sngRotation = .Item(1).Rotation 
 For intCount = 1 To .Count 
 .Item(intCount).Rotation = sngRotation 
 Next intCount 
 End With 
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.