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. Lectura y escritura de MsoTriState

Sintaxis

más sencilla.LockAspectRatio

expresión Variable que representa un objeto Shape.

Comentarios

El valor de LockAspectRatio es msoTrue si la forma conserva sus proporciones originales al cambiar su tamaño. Si puede cambiar la altura y el ancho de la forma independientemente, el valor es msoFalse.

Ejemplo

El siguiente ejemplo crea dos triángulos del mismo tamaño. El triángulo izquierdo tiene la relación de aspecto desbloqueada y el triángulo de la derecha tiene la relación de aspecto bloqueada. La Figura 1 muestra el resultado cuando se cambia el tamaño de cada triángulo 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 correcta 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

Objeto de formaPropiedad ShapeRange.LockAspectRatioMsoTriState

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.