Propriété ShapeRange.LockAspectRatio (Project)

Obtient ou définit une valeur qui indique si la plage de formes conserve ses proportions d’origine lorsque vous la redimensionnez. autrement dit, les proportions de la plage de formes sont verrouillées. MsoTriState en lecture-écriture.

Syntaxe

expression. LockAspectRatio

Expression Variable qui représente un objet « ShapeRange ».

Remarques

La valeur LockAspectRatio est msoTrue si la plage de formes conserve ses proportions d’origine lorsqu’elle est redimensionnée. Si vous pouvez modifier la hauteur et la largeur de la plage de formes indépendamment, la valeur est msoFalse.

Exemple

L’exemple suivant crée deux plages de formes, avec un triangle et un engrenage de la même taille dans chaque plage de formes. La plage de formes de gauche a les proportions déverrouillées, et la plage de formes de droite a les proportions verrouillées. La figure 1 montre le résultat lorsque chaque plage de formes est redimensionnée de la même quantité.

Les modifications apportées à une plage de formes sont appliquées à chaque forme de la plage.

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

Dans la figure 1, la plage de formes droite avec les proportions verrouillées est sélectionnée.

Figure 1. Redimensionnement d’une plage de formes lorsque les proportions sont déverrouillées ou verrouillées

Valeur de la propriété

MSOTRISTATE

Voir aussi

ShapeRange, objetShape.LockAspectRatio, propriétéMsoTriState

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.