Shape.ScaleHeight, méthode (Word)

Article
04/07/2023

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

Syntaxe

expression. ScaleHeight (Factor, RelativeToOriginalSize, Scale)

expression Obligatoire. Variable qui représente un objet Shape.

Parameters

Nom	Requis/Facultatif	Type de données	Description
Factor	Obligatoire	Single	Indique le rapport entre la hauteur de la forme redimensionnée et sa hauteur actuelle ou originale. Par exemple, pour élargir un rectangle de 50 %, indiquez un facteur de 1,5.
RelativeToOriginalSize	Obligatoire	MsoTriState	La valeur true à l'échelle de la forme par rapport à sa taille initiale. False pour mettre à l'échelle par rapport à sa taille actuelle. Vous pouvez spécifier la valeur True à cet argument que si la forme spécifiée est une image ou un objet OLE.
Scale	Facultatif	MsoScaleFrom	Partie de la forme qui reste au même emplacement lorsque la forme est mise à l'échelle.

Remarques

S'il s'agit d'images ou d'objets OLE, il vous est possible d'indiquer si vous souhaitez mettre la forme à l'échelle par rapport à sa taille initiale ou sa taille actuelle. Les autres formes sont toujours mises à l'échelle par rapport à leur hauteur actuelle.

Exemple

Cet exemple montre comment mettre à l'échelle toutes les images et les objets OLE de myDocument à 175 % de leur hauteur et largeur originales alors que toutes les autres formes sont redimensionnées par rapport à leur taille actuelle.

Set myDocument = ActiveDocument 
For Each s In myDocument.Shapes 
 Select Case s.Type 
 Case msoEmbeddedOLEObject, msoLinkedOLEObject, _ 
 msoOLEControlObject, _ 
 msoLinkedPicture, msoPicture 
 s.ScaleHeight 1.75, True 
 s.ScaleWidth 1.75, True 
 Case Else 
 s.ScaleHeight 1.75, False 
 s.ScaleWidth 1.75, False 
 End Select 
Next

Voir aussi

Shape, objet

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.