Propiedad ShapeRange.LockAspectRatio (Project)

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

Sintaxis

expresión. LockAspectRatio

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

Comentarios

El valor de LockAspectRatio es msoTrue si el intervalo de formas conserva sus proporciones originales cuando se cambia el tamaño. Si puede cambiar el alto y el ancho del intervalo de formas de forma independiente, 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 intervalo de formas. El rango de formas izquierdo tiene la relación de aspecto desbloqueada y el rango de formas derecho tiene la relación de aspecto bloqueada. En la figura 1 se muestra el resultado cuando cada intervalo de formas cambia de tamaño en la misma cantidad.

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

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 intervalo de formas derecho con la relación de aspecto bloqueada.

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

Valor de propiedad

MSOTRISTATE

Consulte también

Propiedad MsoTriStatedel objeto ShapeRangeShape.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.