ShapeRange.ScaleHeight-Methode (Project)

  • Artikel

Skaliert die Höhe des Formenbereichs um einen angegebenen Faktor.

Syntax

Ausdruck. ScaleHeight (Factor, RelativeToOriginalSize, fScale)

Ausdruck Eine Variable, die ein ShapeRange-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 jede 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.

Rückgabewert

Nothing

HinwBemerkungeneise

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, einem Formbereich zugewiesen und dann die Formen 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)
        
    Set sRange = theReport.Shapes.Range(Array(1, 2))
    sRange.ScaleHeight 2, msoFalse
    sRange.ScaleWidth 2, msoFalse

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

Siehe auch

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