Propriété Shape.LockAspectRatio (Project)

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

Syntaxe

expression. LockAspectRatio

Expression Variable qui représente un objet Shape .

Remarques

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

Exemple

L’exemple suivant crée deux triangles de la même taille. Les proportions sont verrouillées dans le triangle gauche et les proportions sont verrouillées dans le triangle droit. La figure 1 montre le résultat lorsque chaque triangle est redimensionné de la même quantité.

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

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

Figure 1. Redimensionnement d’une forme lorsque les proportions sont déverrouillées ou verrouillées

Valeur de la propriété

MSOTRISTATE

Voir aussi

Shape, objetShapeRange.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.