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é.
Syntaxe
expression. ScaleWidth (Factor, RelativeToOriginalSize, Scale)
expression Obligatoire. Variable qui représente un objet Shape.
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 | 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 largeur 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
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.