Shape.ScaleHeight-Methode (Publisher)

  • Artikel

Skaliert die Höhe 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. ScaleHeight (Factor, RelativeToOriginalSize, fScale)

Ausdruck 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 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.

HinwBemerkungeneise

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 zu ihrer aktuellen Höhe skaliert. Die Angabe eines RelativeToOriginalSize-Werts von msoTrue für andere Formen als Bilder oder OLE-Objekte verursacht einen Fehler.

Verwenden Sie die ScaleWidth -Methode, um die Breite 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.