Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
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 Une variable qui représente uneForme d’objet.
Paramètres
| 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. |
| Mise à l’échelle | Facultatif | MsoScaleFrom | Partie de la forme qui reste au même emplacement lorsque la forme est mise à l'échelle. Peut être l’une des constantes MsoScaleFrom déclarées dans la bibliothèque de types Microsoft Office. |
Remarques
Le paramètre RelativeToOriginalSize peut être l’une des constantes MsoTriState déclarées dans la bibliothèque de types Microsoft Office et répertorié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 les formes autres que les images ou les 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.