Propriété PictureFormat.CropTop (Excel)

Renvoie ou définit le nombre de points rogés du haut de l’image ou de l’objet OLE spécifié. String en lecture/écriture.

Syntaxe

. CropTop

expression Expression qui renvoie 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 dont la hauteur initiale est de 100 points, re-la afin qu’elle soit élevée de 200 points, puis que vous définissez la propriété CropTop sur 50, 100 points (et non 50) seront rogés du haut de votre image.

Exemple

Cet exemple montre comment rogner 20 points dans la partie supérieure de la forme 3 de 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.CropTop = 20

Cet exemple vous permet de spécifier le pourcentage que vous souhaitez rognant du haut de la forme sélectionnée, que la forme ait été ou non retentée. 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 top of this picture?") 
Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1) 
With shapeToCrop.Duplicate 
 .ScaleHeight 1, True 
 origHeight = .Height 
 .Delete 
End With 
cropPoints = origHeight * percentToCrop / 100 
shapeToCrop.PictureFormat.CropTop = cropPoints

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.