Compartilhar via

Propriedade ShapeRange.Rotation (Publisher)

  • Artigo

Retorna ou define um Single que representa o número de graus em que a forma especificada é girada em torno do eixo z. Um valor positivo indica rotação para cima; um valor negativo indica rotação para baixo. Leitura/gravação.

Sintaxe

expressão. Rotação

Expressão Uma variável que representa um objeto ShapeRange .

Comentários

Para definir a rotação de uma forma tridimensional em torno do eixo x ou do eixo y, use a propriedade RotationX ou a propriedade RotationY do objeto ThreeDFormat .

Exemplo

Este exemplo coincide a rotação de todas as formas na primeira página da publicação ativa à rotação da primeira forma. Este exemplo pressupõe que há pelo menos duas formas na primeira página da publicação ativa.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.