Compartilhar via

Shape.IncrementRotation method (Project) (Método Shape.IncrementRotation [Projeto])

  • Artigo

Roda a forma em torno do eixo z pelo número especificado de graus.

Sintaxe

expression. IncrementRotation (Incremento)

expressão Uma variável que representa um objeto Shape.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Increment Obrigatório Single O número de graus em que a forma deve ser rodada. Um valor positivo gira a forma no sentido horário; um valor negativo a gira no sentido anti-horário.
Increment Obrigatório FLOAT
Nome Obrigatório/Opcional Tipo de dados Descrição

Valor de retorno

Nothing

Comentários

O parâmetro Incremento pode ser um valor de -3600 a 3600.

Exemplo

O exemplo seguinte mostra a diferença entre rodar uma forma e rodar um intervalo de formas. O exemplo cria um intervalo de formas que contém dois cilindros, roda o intervalo da forma 30 graus no sentido dos ponteiros do relógio e, em seguida, roda a segunda forma no intervalo 30 graus para a esquerda. Se definir um ponto de interrupção na última instrução IncrementRotation e, em seguida, percorrer o código, poderá ver como funciona a rotação.

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

Confira também

Objeto Shape

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.