Shape.ScaleWidth-Methode (Project)

  • Artikel

Skaliert die Breite der Form anhand eines angegebenen Faktors.

Syntax

Ausdruck. ScaleWidth (Factor, RelativeToOriginalSize, fScale)

Ausdruck Eine Variable, die ein Shape-Objekt darstellt.

Parameter

Name Erforderlich/Optional Datentyp Beschreibung
Factor Erforderlich Single Das Verhältnis zwischen der Breite der Form, nachdem Sie ihre Größe geändert haben, und der aktuellen Breite. Wenn Sie beispielsweise ein Rechteck um 50 Prozent breiter machen möchten, 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

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