Citation :
ScaleHeight, méthode
Voir aussi S'applique à Exemple Spécificités
Cette méthode met à l'échelle la hauteur de la forme selon 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 en cours. Les formes qui ne sont ni des images ni des objets OLE sont toujours mises à l'échelle par rapport à leur hauteur en cours.
expression.ScaleHeight(Factor, RelativeToOriginalSize, Scale)
expression Obligatoire. Expression qui renvoie un des objets répertoriés dans la liste S'applique à.
Factor Argument de type Single obligatoire. Indique le ratio entre la hauteur de la forme une fois que vous l'avez redimensionnée et la hauteur d'origine ou en cours. Par exemple, pour obtenir un rectangle plus large de 50 pour cent, affectez la valeur 1.5 à cet argument.
RelativeToOriginalSize Argument de type MsoTriState obligatoire. Il a la valeur msoTrue pour mettre la forme à l'échelle par rapport à sa taille d'origine. Il a la valeur msoFalse pour la mettre à l'échelle par rapport à la taille en cours. Vous ne pouvez affecter la valeur msoTrue à cet argument que si la forme spécifiée est une image ou un objet OLE.
MsoTriState peut être l'une de ces constantes MsoTriState.
msoCTrue Ne s'applique pas à cette propriété.
msoFalse Met la forme à l'échelle par rapport à la taille en cours.
msoTriStateMixed Ne s'applique pas à cette propriété.
msoTriStateToggle Ne s'applique pas à cette propriété.
msoTrue Met la forme à l'échelle par rapport à sa taille d'origine.
Scale Argument de type MsoScaleFrom facultatif. Cet argument spécifie la partie de la forme qui garde sa position lorsque la forme est mise à l'échelle.
MsoScaleFrom peut être l'une de ces constantes MsoScaleFrom.
msoScaleFromBottomRight
msoScaleFromMiddle
msomsoScaleFromTopLeft par défaut
Exemple
Cet exemple montre comment mettre à l'échelle toutes les images et les objets OLE dans myDocument à 175 pour cent de leur hauteur et de leur largeur d'origine et toutes les autres formes à 175 pour cent de leur hauteur et largeur en cours.
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
|
