Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Skaliert die Höhe der Form anhand eines angegebenen Faktors.
Syntax
Ausdruck. ScaleHeight (Factor, RelativeToOriginalSize, fScale)
expression 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 | Legt fest, ob die Form relativ zu ihrer aktuellen oder ursprünglichen Größe skaliert wird. |
| fScale | Optional | MsoScaleFrom | Der Teil der Form, der seine Position beibehält, wenn die Form skaliert wird. |
Hinweise
Für Bilder und OLE-Objekte können Sie festlegen, ob die Form relativ zu ihrer Originalgröße oder relativ zur aktuellen Größe skaliert werden soll. Andere Formen als Bilder und OLE-Objekte werden immer relativ zu ihrer aktuellen Höhe skaliert.
Der RelativeToOriginalSize-Parameterwert kann eine der folgenden MsoTriState-Konstanten sein. Sie können MsoTrue für diesen Parameter nur angeben, wenn die angegebene Form ein Bild oder ein OLE-Objekt ist.
| Konstante | Beschreibung |
|---|---|
| msoFalse | Skaliert die Form relativ zu ihrer aktuellen Größe. |
| msoTrue | Skaliert die Form relativ zu ihrer ursprünglichen Größe. |
Der fScale-Parameterwert kann eine der folgenden MsoTriState-Konstanten sein. Der Standardwert ist MsoScaleFromTopLeft.
| msoScaleFromBottomRight |
| msoScaleFromMiddle |
| msoScaleFromTopLeft |
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 = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
Select Case s.Type
Case msoEmbeddedOLEObject, msoLinkedOLEObject, _
msoOLEControlObject, msoLinkedPicture, msoPicture
s.ScaleHeight 1.75, msoTrue
s.ScaleWidth 1.75, msoTrue
Case Else
s.ScaleHeight 1.75, msoFalse
s.ScaleWidth 1.75, msoFalse
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.