ShapeRange.CanvasCropRight, méthode (Word)

Rogne un pourcentage de la largeur d’une zone de dessin à partir du côté droit du dessin.

Syntaxe

expression. CanvasCropBottom( _Increment_ )

expression Obligatoire. Variable qui représente un objet ShapeRange.

Parameters

Nom	Requis/Facultatif	Type de données	Description
Increment	Obligatoire	Simple	Montant en points du pourcentage de la largeur du dessin qui doit rester une fois celui-ci rogné. Si vous entrez un incrément de 0,9, le dessin est rogné sur dix pour cent de sa largeur à partir de la droite. Si vous entrez 0,1, le dessin est rogné sur quatre-vingt-dix pour cent de sa largeur à partir de la droite.

Exemple

Cet exemple montre comment rogner 25 pour cent de la largeur de la zone de dessin à partir de la partie droite de la première zone de dessin du document actif, en supposant que la première forme du document actif est une zone de dessin. Si ce n'est pas le cas, vous devez ajouter une zone de dessin dans le document à l'aide de la méthode AddCanvas.

Sub CropCanvasRight() 
 Dim shpCanvas As Shape 
 
 Set shpCanvas = ActiveDocument.Shapes(1) 
 shpCanvas.CanvasCropRight Increment:=0.75 
End Sub

Voir aussi

ShapeRange, Collection d'objets

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.