Propiedad Shape.LockAspectRatio (Project)

Obtiene o establece un valor que indica si la forma conserva sus proporciones originales al cambiar su tamaño; es decir, si la relación de aspecto de la forma está bloqueada. MsoTriState de lectura y escritura

Sintaxis

expresión. LockAspectRatio

expresión Variable que representa un objeto Shape.

Observaciones

El valor de LockAspectRatio es msoTrue si la forma conserva sus proporciones originales cuando se cambia el tamaño. Si puede cambiar el alto y el ancho de la forma de forma independiente, el valor es msoFalse.

Ejemplo

En el ejemplo siguiente se crean dos triángulos del mismo tamaño. El triángulo izquierdo tiene la relación de aspecto desbloqueada y el triángulo derecho tiene la relación de aspecto bloqueada. En la figura 1 se muestra el resultado cuando cada triángulo cambia de tamaño en la misma cantidad.

Sub ResizeTriangles()
    Dim shapeReport As Report
    Dim reportName As String
    Dim triangle1 As shape
    Dim triangle2 As shape

    reportName = "Triangle resize report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)
    
    With shapeReport.Shapes
        Set triangle1 = .AddShape(msoShapeIsoscelesTriangle, 10, 10, 100, 100)
        Set triangle2 = .AddShape(msoShapeIsoscelesTriangle, 150, 10, 100, 100)
    End With
    
    triangle1.Select
    triangle1.LockAspectRatio = msoFalse
    triangle1.height = 200
    
    triangle2.Select
    triangle2.LockAspectRatio = msoTrue
    triangle2.height = 200
End Sub

En la figura 1, se selecciona la forma derecha con la relación de aspecto bloqueada.

Figura 1. Cambiar el tamaño de una forma cuando la relación de aspecto está desbloqueada o bloqueada

Valor de propiedad

MSOTRISTATE

Vea también

Propiedad MsoTriState del objeto ShapeShapeRange.LockAspectRatio

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.