Anmerkung
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 Breite der Form anhand eines angegebenen Faktors.
Syntax
Ausdruck. ScaleWidth (Factor, RelativeToOriginalSize, Scale)
expression Erforderlich. Eine Variable, die ein Shape-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Factor | Erforderlich | Single | Gibt das Verhältnis zwischen der Breite der Form nach der Änderung ihrer Größe und der aktuellen oder ursprünglichen Breite an. Beispiel: Um ein Rechteck um 50 Prozent zu verbreitern, 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. |
Hinweise
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 Breite 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.