Shape.ScaleHeight, méthode (Project)

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

Syntaxe

expression. ScaleHeight (Factor, RelativeToOriginalSize, fScale)

Expression Variable qui représente un objet Shape .

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	Requis	MSOTRISTATE	msoFalse met à l’échelle la 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.
Facteur	Requis	FLOAT
RelativeToOriginalSize	Requis	MSOTRISTATE
fScale	Facultatif	MSOSCALEFROM
Nom	Requis/Facultatif	Type de données	Description

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, 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 à 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 ShapeMsoTriStateMsoScaleFrom

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.