Propiedad ShapeRange.LockAspectRatio (Project)

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

Sintaxis

más sencilla.LockAspectRatio

expresión Variable que representa un objeto 'ShapeRange'.

Comentarios

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

Ejemplo

En el ejemplo siguiente se crean dos intervalos de formas, con un triángulo y un engranaje del mismo tamaño en cada rango de formas. El rango de formas de la izquierda tiene la relación de aspecto desbloqueada y el rango de formas de la derecha tiene la relación de aspecto bloqueada. La figura 1 muestra el resultado cuando se cambia el tamaño de cada rango de formas en la misma cantidad.

Los cambios en un rango de formas se aplican a cada forma del rango.

Sub ResizeShapeRanges()
    Dim shapeReport As Report
    Dim reportName As String
    Dim triangle1 As shape
    Dim triangle2 As shape
    Dim gear1 As shape
    Dim gear2 As shape
    Dim sRange1 As ShapeRange
    Dim sRange2 As ShapeRange
    
    reportName = "ShapeRange resize report"
    Set shapeReport = ActiveProject.Reports.Add(reportName)
    
    With shapeReport.Shapes
        Set triangle1 = .AddShape(msoShapeIsoscelesTriangle, 10, 10, 100, 100)
        Set gear1 = .AddShape(msoShapeGear6, 10, 120, 100, 100)
        Set triangle2 = .AddShape(msoShapeIsoscelesTriangle, 150, 10, 100, 100)
        Set gear2 = .AddShape(msoShapeGear6, 150, 120, 100, 100)
        
        gear2.BackgroundStyle = msoBackgroundStylePreset3
        
        Set sRange1 = .Range(Array(1, 2))
        Set sRange2 = .Range(Array(3, 4))
    End With
       
    sRange1.LockAspectRatio = msoFalse
    sRange1.height = 200
    
    ' Set a yellow shape style for gear1.
    sRange1(2).ShapeStyle = msoShapeStylePreset26
    
    sRange2.LockAspectRatio = msoTrue
    sRange2.height = 200
    
    sRange2.Select
End Sub

En la Figura 1, se selecciona el rango de formas correcto con la relación de aspecto bloqueada.

Figura 1. Cambiar el tamaño de un rango de formas cuando la relación de aspecto está desbloqueada o bloqueada

Valor de propiedad

MSOTRISTATE

Vea también

Objeto ShapeRangePropiedad Shape.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.