ShapeRange.ScaleHeight, méthode (Project)

  • Article

Met à l’échelle la hauteur de la plage de formes selon un facteur spécifié.

Syntaxe

expression. ScaleHeight (Factor, RelativeToOriginalSize, fScale)

Expression Variable qui représente un objet « ShapeRange ».

Parameters

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

Valeur renvoyée

Nothing

Remarques

Une valeur de 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, les affecte à une plage de formes, puis met à l’échelle les formes 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 à 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)
        
    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

Voir aussi

ShapeRange, objetMsoTriStateMsoScaleFrom

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.