Partager via

Propriété Shape.LockAspectRatio (Publisher)

  • Article

Renvoie ou définit une constante MsoTriState indiquant si la forme spécifiée conserve ses proportions d’origine lorsque vous la redimensionnez. Lecture-écriture.

Syntaxe

expression. LockAspectRatio

Expression Variable qui représente un objet Shape .

Remarques

La valeur de la propriété LockAspectRatio peut être une des constantes MsoTriState déclarées dans la bibliothèque de type Microsoft Office et affichées dans le tableau suivant.

Constante Description
msoFaux La hauteur et la largeur de la forme changent indépendamment l'une de l'autre lorsque vous la redimensionnez.
msoTriEtatMélangé Valeur de retour indiquant une combinaison de msoTrue et msoFalse pour la plage de formes spécifiée.
msoTriStateToggle Valeur définie qui bascule entre msoTrue et msoFalse.
msoVrai La forme spécifiée conserve ses proportions d'origine lorsque vous la redimensionnez.

Exemple

Cet exemple ajoute un cube à la composition active. Ce cube peut être déplacé et redimensionné, mais il conservera ses proportions.

Dim shp As Shape 
 
Set shp = ActiveDocument.Pages(1).Shapes _ 
 .AddShape(Type:=msoShapeCube, _ 
 Left:=50, Top:=50, Width:=100, Height:=200) _ 
 
shp.LockAspectRatio = msoTrue

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.