Shape.ScaleHeight-Methode (Word)
Skaliert die Höhe der Form anhand eines angegebenen Faktors.
Syntax
Ausdruck. ScaleHeight (Factor, RelativeToOriginalSize, Scale)
Ausdruck: Erforderlich. Eine Variable, die ein Shape-Objekt darstellt.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
Factor | Erforderlich | Single | Gibt das Verhältnis zwischen der Höhe der Form nach der Änderung ihrer Größe und der aktuellen oder ursprünglichen Höhe an. Beispiel: Um ein Rechteck um 50 Prozent zu vergrößern, geben Sie für dieses Argument 1,5 an. |
RelativeToOriginalSize | Erforderlich | MsoTriState | True, wenn die Form relativ zu ihrer ursprünglichen Größe skaliert werden soll. Mit False wird die Form relativ zu ihrer aktuellen Größe skaliert. Sie können den Wert True für dieses Argument nur angeben, wenn es sich bei der angegebenen Form um ein Bild oder ein OLE-Objekt handelt. |
Scale | Optional | MsoScaleFrom | Der Teil der Form, der seine Position beibehält, wenn die Form skaliert wird. |
HinwBemerkungeneise
Für Bilder und OLE-Objekte können Sie angeben, ob die Form relativ zu ihrer ursprünglichen Größe oder relativ zur aktuellen Größe skaliert werden soll. Formen, die weder Bilder noch OLE-Objekte sind, werden immer relativ zu ihrer aktuellen Höhe skaliert.
Beispiel
In diesem Beispiel werden alle Bilder und OLE-Objekte in myDocument auf 175 % ihrer ursprünglichen Höhe und Breite skaliert und alle anderen Formen auf 175 % ihrer aktuellen Höhe und Breite.
Set myDocument = ActiveDocument
For Each s In myDocument.Shapes
Select Case s.Type
Case msoEmbeddedOLEObject, msoLinkedOLEObject, _
msoOLEControlObject, _
msoLinkedPicture, msoPicture
s.ScaleHeight 1.75, True
s.ScaleWidth 1.75, True
Case Else
s.ScaleHeight 1.75, False
s.ScaleWidth 1.75, False
End Select
Next
Siehe auch
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für