Método ShapeRange.IncrementRotation (Project)

  • Artigo

Gira cada forma no intervalo de formas ao redor do eixo z pelo número especificado de graus.

Sintaxe

expression. IncrementRotation(Incremento)

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

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Increment Obrigatório Single O número de graus de cada forma deve ser girado. Um valor positivo gira as formas no sentido horário; um valor negativo gira as formas 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 Increment pode ser um valor de -3600 a 3600.

Exemplo

O exemplo a seguir mostra a diferença entre girar uma forma e girar um intervalo de formas. O exemplo cria um intervalo de formas que contém dois cilindros, gira o intervalo de formas 30 graus no sentido horário e gira a segunda forma no intervalo de 30 graus no sentido anti-horário. Se você definir um ponto de interrupção na última instrução IncrementRotation e, em seguida, passar pelo código, poderá ver como a rotação funciona.

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 ShapeRange

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.