Propriété Graphic.CropRight (Excel)
Cette propriété renvoie ou définit le nombre de points rognées du côté droit de l’image ou de l’objet OLE spécifié. String en lecture/écriture.
expression. CropRight
Expression Expression qui renvoie un objet Graphic .
Le rognage est calculé par rapport à la taille d’origine de l’image. Par exemple, si vous insérez une image de 100 points de large à l’origine, remettez-la à l’échelle pour qu’elle soit large de 200 points, puis définissez la propriété CropRight sur 50, 100 points (et non 50) sont rogné sur le côté droit de votre image.
Cet exemple montre comment rogner 20 points du côté droit de la forme 3 dans myDocument. Pour que cet exemple fonctionne, la troisième forme doit être une image ou un objet OLE.
Set myDocument = Worksheets(1)
myDocument.Shapes(3).PictureFormat.CropRight = 20
À l’aide de l’exemple suivant, vous pouvez spécifier le pourcentage que vous souhaitez rogner du côté droit de la forme sélectionnée, que la forme ait ou non été mise à l’échelle. Pour que cet exemple fonctionne, la forme sélectionnée doit être une image ou un objet OLE.
percentToCrop = InputBox( _
"What percentage do you want to crop" & _
" off the right of this picture?")
Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1)
With shapeToCrop.Duplicate
.ScaleWidth 1, True
origWidth = .Width
.Delete
End With
cropPoints = origWidth * percentToCrop / 100
shapeToCrop.PictureFormat.CropRight = cropPoints
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.