Shape.ScaleHeight, méthode (PowerPoint)

Article
04/07/2023

Met la hauteur de la forme à l’échelle en utilisant un facteur spécifié.

Syntaxe

expression. ScaleHeight (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 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	Spécifie si la taille est mise à l’échelle par rapport à sa taille actuelle ou sa taille d’origine.
fScale	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 hauteur actuelle.

La valeur du paramètre RelativeToOriginalSize peut être l’une des constantes MsoTriState suivantes. Vous pouvez spécifier msoTrue pour ce paramètre uniquement si la forme spécifiée est une image ou un objet OLE.

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

La valeur du paramètre fScale peut être l’une des constantes MsoTriState suivantes. La valeur par défaut est msoScaleFromTopLeft.


msoScaleFromBottomRight
msoScaleFromMiddle
msoScaleFromTopLeft

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 = ActivePresentation.Slides(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

Voir aussi

Shape, objet

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.

Partager via