Partager via

ShapeRange.ScaleHeight, méthode (Excel)

  • Article

Met la hauteur 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 actuelle. Les formes qui ne sont ni des images ni des objets OLE sont toujours mises à l'échelle par rapport à leur hauteur actuelle.

Syntaxe

expression. ScaleHeight (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 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 msoTrue pour mettre la forme à l'échelle par rapport à sa taille initiale. 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.