Shape.ScaleWidth, méthode (projet)

Met la largeur de la forme à l’échelle en utilisant un facteur spécifié.

Syntaxe

expression. ScaleWidth (Factor, RelativeToOriginalSize, fScale)

expression Une variable qui représente uneForme d’objet.

Paramètres

Nom Requis/Facultatif Type de données Description
Factor Obligatoire Unique Rapport entre la largeur de la forme après son redimensionnement et la largeur actuelle. Par exemple, pour élargir un rectangle de 50 %, spécifiez 1,5 pour le paramètre Facteur .
RelativeToOriginalSize Obligatoire MsoTriState msoFalse met la forme à l’échelle par rapport à sa taille actuelle. Pour Project, la valeur doit être msoFalse.
Mise à l’échelle Facultatif MsoScaleFrom Spécifie la partie de la forme qui conserve sa position lorsque le forme est mise à l'échelle.
Facteur Obligatoire FLOAT
RelativeToOriginalSize Obligatoire MSOTRISTATE
Mise à l’échelle Facultatif MSOSCALEFROM
Nom Requis/Facultatif Type de données Description

Valeur renvoyée

Nothing

Remarques

La valeur du paramètre RelativeToOriginalSize de msoTrue met à l’échelle une forme par rapport à sa taille d’origine, qui s’applique uniquement à une image ou à un objet OLE.

Exemple

L’exemple suivant crée deux formes cylindriques, puis met à l’échelle la première forme en hauteur et en largeur. Si vous définissez un point d’arrêt sur la première instruction ScaleHeight , vous pouvez parcourir le code et voir les modifications apportées par la mise à l’échelle et l’utilisation du paramètre fScale .

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

Voir aussi

Objet de formeMsoTriStateMsoScaleFrom

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

  • Last updated on