Méthode Shape.ScaleWidth (Project)
Met la largeur de la forme à l’échelle en utilisant un facteur spécifié.
Syntaxe
expression. ScaleWidth (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 largeur de la forme après la redimensionnement et la largeur actuelle. Par exemple, pour élargir un rectangle de 50 %, spécifiez 1,5 pour le paramètre Factor . |
RelativeToOriginalSize | Obligatoire | 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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour