ShapeRange.ScaleHeight-Methode (Excel)

Artikel
04/07/2023

Skaliert die Höhe der Form anhand eines angegebenen Faktors. Bei Bildern und OLE-Objekten können Sie angeben, ob die Form relativ zu ihrer ursprünglichen oder ihrer aktuellen Größe skaliert werden soll. Andere Formen als Bilder und OLE-Objekte werden immer relativ zu ihrer aktuellen Höhe skaliert.

Syntax

Ausdruck. ScaleHeight (Factor, RelativeToOriginalSize, Scale)

Ausdruck Eine Variable, die ein ShapeRange-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	Mit msoTrue wird die Form relativ zu ihrer Originalgröße skaliert. Mit msoFalse wird sie relativ zu ihrer aktuellen Größe skaliert. Sie können den Wert msoTrue für dieses Argument nur angeben, wenn es sich bei der angegebenen Form um ein Bild oder ein OLE-Objekt handelt.
Scale	Optional	Variant	Eine der Konstanten von MsoScaleFrom, die angibt, welcher Teil der Form seine Position behält, wenn das Shape skaliert wird.

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 = Worksheets(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

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.