Shape.ScaleWidth-Methode (Projekt)

Skaliert die Breite der Form anhand eines angegebenen Faktors.

Syntax

Ausdruck verwendet werden. ScaleWidth (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 Breite der Form nach dem Ändern der Größe und der aktuellen Breite. Um beispielsweise ein Rechteck 50 Prozent breiter zu machen, geben Sie für den Parameter Faktor 1,5 ein.
RelativeToOriginalSize Erforderlich MsoTriState msoFalse skaliert die Form relativ zu ihrer 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 zu ihrer ursprünglichen Größe, die nur für ein Bild oder ein OLE-Objekt gilt.

Beispiel

Im folgenden Beispiel werden zwei zylindrische Shapes erstellt und dann das erste Shape 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 durch die Skalierung und die Verwendung des fScale-Parameters sehen.

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

FormobjektMsoTriStateMsoScaleFrom

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.

  • Last updated on