Shape.LockAspectRatio-Eigenschaft (Projekt)

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

Syntax

Ausdruck verwendet werden. LockAspectRatio

expression Eine Variable, die ein Shape-Objekt darstellt.

Hinweise

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

Beispiel

Im folgenden Beispiel werden zwei Dreiecke gleicher Größe erstellt. Beim linken Dreieck ist das Seitenverhältnis freigeschaltet, und beim rechten Dreieck ist das Seitenverhältnis gesperrt. Abbildung 1 zeigt das Ergebnis, wenn jedes Dreieck um den gleichen Betrag verkleinert 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 einer Form, wenn das Seitenverhältnis entsperrt oder gesperrt ist

Eigenschaftswert

MSOTRISTATE

Siehe auch

FormobjektShapeRange.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.