Shape.ScaleWidth-Methode (PowerPoint)

Artikel
04/07/2023

Skaliert die Breite der Form anhand eines angegebenen Faktors. Für Bilder und OLE-Objekte können Sie festlegen, ob die Form relativ zur Originalgröße oder relativ zur aktuellen Größe skaliert werden soll. Andere Formen als Bilder und OLE-Objekte werden immer relativ zu ihrer aktuellen Breite skaliert.

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	Legt fest, ob eine Form relativ zu ihrer aktuellen oder ursprünglichen Größe skaliert wird.
fScale	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. Andere Formen als Bilder und OLE-Objekte werden immer relativ zu ihrer aktuellen Breite skaliert.

Der RelativeToOriginalSize-Parameterwert kann eine der folgenden MsoTriState-Konstanten sein. Sie können MsoTrue für diesen Parameter nur angeben, wenn die angegebene Form ein Bild oder ein OLE-Objekt ist.

Konstante	Beschreibung
msoFalse	Skaliert die Form relativ zu ihrer aktuellen Größe.
msoTrue	Skaliert die Form relativ zu ihrer ursprünglichen Größe.

Der fScale-Parameterwert kann eine der folgenden MsoScaleFrom-Konstanten sein. Der Standardwert ist MsoScaleFromTopLeft.


msoScaleFromBottomRight
msoScaleFromMiddle
msoScaleFromTopLeft

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 = ActivePresentation.Slides(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 s

Siehe auch

Shape-Objekt

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.

Freigeben über