Propriété PictureFormat.CropRight (Word)

  • Article

Cette propriété renvoie ou définit le nombre de points qui sont retirés de la partie droite de l'image spécifiée ou l'objet OLE. En lecture/écriture unique.

Syntaxe

expression. CropRight

Expression Variable qui représente un objet « PictureFormat ».

Remarques

Le rognage est calculé par rapport à la taille d'origine de l'image. Par exemple, si vous insérez une image qui est à l'origine de 100 points, mettez-la à nouveau afin qu'il soit de 200 points, et puis définir la propriété CropRight à 50, 100 points (et non 50) est retiré de la droite de votre image.

Exemple

Cet exemple montre comment rogner 20 points du côté droit de la troisième forme du document actif. Pour que cet exemple fonctionne, la troisième forme doit être une image ou un objet OLE.

ActiveDocument.Shapes(3).PictureFormat.CropRight = 20

Cet exemple montre comment rogner du côté droit de la forme sélectionnée le pourcentage spécifié par l'utilisateur, sans tenir compte de l'éventuelle mise à l'échelle de la forme. Pour que cet exemple fonctionne, la forme sélectionnée doit être une image ou un objet OLE.

Dim dblPercent As Double 
Dim shapeCrop As Shape 
Dim sngHeight As Single 
Dim sngCrop As Single 
 
dblPercent = Val(InputBox("What percentage do you want " _ 
 & "to crop off the right of this picture?")) 
 
Set shapeCrop = _ 
 Selection.ShapeRange(1) 
 
With shapeCrop.Duplicate 
 .ScaleHeight 1, True 
 sngHeight = .Height 
 .Delete 
End With 
 
sngCrop = sngHeight * dblPercent / 100 
 
shapeCrop.PictureFormat.CropRight = sngCrop

Voir aussi

Objet PictureFormat

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.