Shape.LockAspectRatio-Eigenschaft (Project)

Ruft einen Wert ab, der angibt, ob das Shape beim Ändern der Größe seine ursprünglichen Proportionen beibehält, oder legt diesen fest. Das heißt, ob das Seitenverhältnis der Form gesperrt ist. MsoTriState-Wert mit Lese-/Schreibzugriff

Syntax

Ausdruck. LockAspectRatio

Ausdruck Eine Variable, die ein Shape-Objekt darstellt.

HinwBemerkungeneise

Der LockAspectRatio-Wert ist msoTrue , wenn die Form ihre ursprünglichen Proportionen beibehält, wenn ihre Größe geändert wird. Wenn Sie die Höhe und Breite der Form unabhängig voneinander ändern können, lautet der Wert msoFalse.

Beispiel

Im folgenden Beispiel werden zwei Dreiecke der gleichen Größe erstellt. Für das linke Dreieck ist das Seitenverhältnis entsperrt, und für das rechte Dreieck ist das Seitenverhältnis gesperrt. Abbildung 1 zeigt das Ergebnis, wenn die Größe jedes Dreiecks um denselben Betrag geändert wird.

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

In Abbildung 1 ist die rechte Form mit dem gesperrten Seitenverhältnis ausgewählt.

Abbildung 1: Ändern der Größe eines Shapes, wenn das Seitenverhältnis entsperrt oder gesperrt ist

Eigenschaftswert

MSOTRISTATE

Siehe auch

Shape-ObjektShapeRange.LockAspectRatio-EigenschaftMsoTriState

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.