ShapeRange.ScaleWidth, méthode (Excel)
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 souhaitez mettre la forme à l'échelle par rapport à la taille d'origine ou la taille actuelle. Les formes qui ne sont ni des images ni des objets OLE sont toujours mises à l'échelle par rapport à la largeur actuelle.
Syntaxe
expression. ScaleWidth (Factor, RelativeToOriginalSize, Scale)
Expression Variable qui représente un objet ShapeRange .
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 | msoFalse pour la mettre à l'échelle par rapport à sa taille actuelle. Vous ne pouvez spécifier msoTrue pour cet argument que si la forme concernée est une image ou un objet OLE. |
Scale | Facultatif | Variant | Une des constantes de MsoScaleFrom, qui spécifie la partie de la forme qui conserve sa position lorsque la forme est mise à l’échelle. |
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 = Worksheets(1)
For Each s In myDocument.Shapes
Select Case s.Type
Case msoEmbeddedOLEObject, _
msoLinkedOLEObject, _
msoOLEControlObject, _
msoLinkedPicture, msoPicture
s.ScaleHeight 1.75, msoTrue
s.ScaleWidth 1.75, ,msoTrue
Case Else
s.ScaleHeight 1.75, msoFalse
s.ScaleWidth 1.75, msoFalse
End Select
Next
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