Método Shape.IncrementRotation (Project)
Gira a forma ao redor 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 que a forma deve ser girada. 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 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
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.
Comentários
https://aka.ms/ContentUserFeedback.
Em breve: Ao longo de 2024, eliminaremos os problemas do GitHub como o mecanismo de comentários para conteúdo e o substituiremos por um novo sistema de comentários. Para obter mais informações, consulteEnviar e exibir comentários de