Méthode Shape.ScaleWidth (PowerPoint)

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 mettre à l’échelle la forme par rapport à sa taille d’origine ou sa taille actuelle. Les formes autres que les objets OLE sont toujours mis à l’échelle sur la base de leur largeur actuelle.

Syntaxe

expression. ScaleWidth (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 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 forme 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 largeur 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 MsoScaleFrom 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 s

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.