Méthode Shape.ScaleWidth (Publisher)

Article
04/07/2023

Met la largeur de la forme à l’échelle en utilisant un facteur spécifié. Pour les images et les objets OLE, vous pouvez indiquer si vous voulez redimensionner la forme par rapport à sa taille initiale ou à sa taille actuelle.

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	Single	Indique le rapport de la largeur de la forme redimensionnée sur sa largeur actuelle ou originale. Par exemple, pour élargir un rectangle de 50 %, indiquez un facteur de 1,5.
RelativeToOriginalSize	Obligatoire	MsoTriState	Spécifie si la mise à l'échelle s'effectue par rapport à la taille initiale ou actuelle de l'objet.
fScale	Facultatif	MsoScaleFrom	Partie de la forme qui reste au même emplacement lorsque la forme est mise à l'échelle. Il peut s’agir de l’une des constantes MsoScaleFrom déclarées dans la bibliothèque de type Microsoft Office.

Remarques

Le paramètre RelativeToOriginalSize peut être l’une des constantes MsoTriState déclarées dans la bibliothèque de type Microsoft Office et affichées dans le tableau suivant.

Constante	Description
msoFaux	Redimensionne la forme en fonction de sa taille actuelle.
msoVrai	Redimensionne la forme en fonction de sa taille initiale.

Les formes autres que les images et les objets OLE sont toujours mises à l’échelle par rapport à leur largeur actuelle ; La spécification d’une valeur RelativeToOriginalSize de msoTrue pour des formes autres que des images ou des objets OLE provoque une erreur.

Utilisez la méthode ScaleHeight pour redimensionner la hauteur d'une forme.

Exemple

Cet exemple redimensionne les images et les objets OLE sur la première page de la composition active à 175 % de leur hauteur et de leur largeur initiales, et il redimensionne toutes les autres formes à 175 % de leur hauteur et de leur largeur actuelles.

' Looping variable. 
Dim shpLoop As Shape 
 
' Loop through all the shapes on the first page. 
For Each shpLoop In ActiveDocument.Pages(1).Shapes 
 With shpLoop 
 Select Case .Type 
 ' If the shape is a picture or OLE object, 
 ' scale relative to original size. 
 Case pbPicture, pbLinkedPicture, _ 
 pbEmbeddedOLEObject, pbLinkedOLEObject, _ 
 pbOLEControlObject 
 .ScaleHeight Factor:=1.75, _ 
 RelativeToOriginalSize:=True 
 .ScaleWidth Factor:=1.75, _ 
 RelativeToOriginalSize:=True 
 ' If the shape is not a picture or OLE object, 
 ' scale relative to the current size. 
 Case Else 
 .ScaleHeight Factor:=1.75, _ 
 RelativeToOriginalSize:=False 
 .ScaleWidth Factor:=1.75, _ 
 RelativeToOriginalSize:=False 
 End Select 
 End With 
Next shpLoop

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.

Share via