Shape.ScaleHeight-Methode (Project)

Skaliert die Höhe der Form anhand eines angegebenen Faktors.

Syntax

Ausdruck. ScaleHeight (Factor, RelativeToOriginalSize, fScale)

expression Eine Variable, die ein Shape-Objekt darstellt.

Parameter

Name	Erforderlich/Optional	Datentyp	Beschreibung
Factor	Erforderlich	Single	Das Verhältnis zwischen der Höhe der Form, nachdem Sie ihre Größe geändert haben, und der aktuellen Höhe. Um beispielsweise ein Rechteck um 50 Prozent höher zu machen, geben Sie 1,5 für den Factor-Parameter an.
RelativeToOriginalSize	Erforderlich	MSOTRISTATE	msoFalse skaliert die Form relativ zur aktuellen Größe. Für Project muss der Wert msoFalse sein.
fScale	Optional	MSOSCALEFROM	Gibt an, welcher Teil der Form beim Skalieren die Position beibehält.
Faktor	Erforderlich	FLOAT
RelativeToOriginalSize	Erforderlich	MSOTRISTATE
fScale	Optional	MSOSCALEFROM
Name	Erforderlich/Optional	Datentyp	Beschreibung

Rückgabewert

Nothing

Hinweise

Ein RelativeToOriginalSize-Parameterwert von msoTrue skaliert eine Form relativ zur ursprünglichen Größe, was nur für ein Bild oder ole-Objekt gilt.

Beispiel

Im folgenden Beispiel werden zwei zylindrische Formen erstellt und dann die erste Form in Höhe und Breite skaliert. Wenn Sie einen Haltepunkt für die erste ScaleHeight-Anweisung festlegen, können Sie den Code schrittweise durchlaufen und die Änderungen der Skalierung und der Verwendung des fScale-Parameters anzeigen.

Sub ScaleShapes()
    Dim theReport As Report
    Dim shp1 As shape
    Dim shp2 As shape
    Dim reportName As String
    Dim sRange As ShapeRange
    
    reportName = "Scale Report"
    
    Set theReport = ActiveProject.Reports.Add(reportName)
    Set shp1 = theReport.Shapes.AddShape(msoShapeCan, 20, 50, 20, 30)
    Set shp2 = theReport.Shapes.AddShape(msoShapeCan, 140, 50, 30, 50)
    
    shp1.ScaleHeight 2, msoFalse
    shp1.ScaleWidth 2, msoFalse

    shp1.ScaleHeight 2, msoFalse, msoScaleFromMiddle
    shp1.ScaleWidth 2, msoFalse, msoScaleFromTopLeft
End Sub

Siehe auch

Shape-ObjektMsoTriStateMsoScaleFrom

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.