Shape.ScaleWidth-Methode (Publisher)

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.