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 Breite der Form anhand eines angegebenen Faktors. Für Bilder und OLE-Objekte können Sie angeben, ob Sie die Form relativ zur Originalgröße oder relativ zur aktuellen Größe skalieren möchten.
Syntax
Ausdruck. ScaleWidth (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 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 | Gibt an, ob relativ zur ursprünglichen oder zur aktuellen Größe des Objekts skaliert werden soll. |
| fScale | Optional | MsoScaleFrom | Der Teil der Form, der seine Position beibehält, wenn die Form skaliert wird. Dies kann eine der MsoScaleFrom-Konstanten sein, die in der Microsoft Office-Typbibliothek deklariert sind. |
Hinweise
Der RelativeToOriginalSize-Parameter kann eine der msoTriState-Konstanten sein, die in der Microsoft Office-Typbibliothek deklariert und in der folgenden Tabelle angezeigt werden.
| Konstante | Beschreibung |
|---|---|
| msoFalse | Skaliert die Form relativ zu ihrer aktuellen Größe. |
| msoTrue | Skaliert die Form relativ zu ihrer ursprünglichen Größe. |
Andere Formen als Bilder und OLE-Objekte werden immer relativ zur aktuellen Breite skaliert. Die Angabe eines RelativeToOriginalSize-Werts von msoTrue für andere Formen als Bilder oder OLE-Objekte verursacht einen Fehler.
Verwenden Sie die ScaleHeight -Methode, um die Höhe einer Form zu skalieren.
Beispiel
Dieses Beispiel skaliert alle Bilder und OLE-Objekte auf der ersten Seite der aktiven Publikation auf 175 Prozent ihrer ursprünglichen Höhe und Breite und alle anderen Formen auf 175 Prozent ihrer aktuellen Höhe und Breite.
' Looping variable.
Dim shpLoop As Shape
' Loop through all the shapes on the first page.
For Each shpLoop In ActiveDocument.Pages(1).Shapes
With shpLoop
Select Case .Type
' If the shape is a picture or OLE object,
' scale relative to original size.
Case pbPicture, pbLinkedPicture, _
pbEmbeddedOLEObject, pbLinkedOLEObject, _
pbOLEControlObject
.ScaleHeight Factor:=1.75, _
RelativeToOriginalSize:=True
.ScaleWidth Factor:=1.75, _
RelativeToOriginalSize:=True
' If the shape is not a picture or OLE object,
' scale relative to the current size.
Case Else
.ScaleHeight Factor:=1.75, _
RelativeToOriginalSize:=False
.ScaleWidth Factor:=1.75, _
RelativeToOriginalSize:=False
End Select
End With
Next shpLoop
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.