Método Shape.IncrementRotation (Project)

Gira la forma alrededor del eje z por el número de grados especificado.

Sintaxis

expresión. IncrementRotation (Incremento)

expresión Variable que representa un objeto Shape.

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Increment	Obligatorio	Single	Número de grados en los que se va a girar la forma. Un valor positivo gira la forma en el sentido de las agujas del reloj; un valor negativo la gira en sentido contrario a las agujas del reloj.
Increment	Obligatorio	FLOAT
Nombre	Obligatorio/opcional	Tipo de datos	Descripción

Valor devuelto

Nothing

Comentarios

El parámetro Increment puede ser un valor de -3600 a 3600.

Ejemplo

En el ejemplo siguiente se muestra la diferencia entre girar una forma y girar un intervalo de formas. En el ejemplo se crea un intervalo de formas que contiene dos cilindros, gira el intervalo de formas 30 grados en el sentido de las agujas del reloj y, a continuación, gira la segunda forma en el intervalo de 30 grados en sentido contrario a las agujas del reloj. Si establece un punto de interrupción en la última instrucción IncrementRotation y, a continuación, recorre el código, puede ver cómo funciona la rotación.

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

Vea también

Objeto Shape

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.