ShapeRange.LockAspectRatio-Eigenschaft (Publisher)

Gibt eine MsoTriState-Konstante zurück, die angibt, ob die angegebene Form ihre ursprünglichen Proportionen beibehält, wenn Sie ihre Größe ändern, oder legt sie fest. Lese-/Schreibzugriff.

Syntax

Ausdruck. LockAspectRatio

Ausdruck Eine Variable, die ein ShapeRange-Objekt darstellt.

HinwBemerkungeneise

Der Wert der LockAspectRatio -Eigenschaft kann eine der in der Microsoft Office-Typbibliothek deklarierten und in der folgenden Tabelle angezeigten MsoTriState -Konstanten sein.

Konstante Beschreibung
msoFalse Die Höhe und Breite der Form ändern sich unabhängig voneinander, wenn Sie die Größe anpassen.
msoTriStateMixed Ein Rückgabewert, der eine Kombination aus msoTrue und msoFalse für den angegebenen Formbereich angibt.
msoTriStateToggle Ein Festgelegter Wert, der zwischen msoTrue und msoFalse wechselt.
msoTrue Für die angegebene Form werden bei einer Größenänderung deren ursprüngliche Proportionen beibehalten.

Beispiel

Das folgende Beispiel fügt einen Würfel zur aktiven Publikation hinzu. Sie können den Würfel verschieben und seine Größe anpassen, Sie können jedoch nicht seine Proportionen ändern.

Dim shp As Shape 
 
Set shp = ActiveDocument.Pages(1).Shapes _ 
 .AddShape(Type:=msoShapeCube, _ 
 Left:=50, Top:=50, Width:=100, Height:=200) _ 
 
shp.LockAspectRatio = msoTrue

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.