Propriété PictureFormat.CropBottom (PowerPoint)
Renvoie ou définit le nombre de points rognés du bas de l’image ou de l’objet OLE spécifié. Lecture-écriture.
Syntaxe
expression. CropBottom
Expression Variable qui représente un objet PictureFormat .
Valeur renvoyée
Unique
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éfinissez la propriété CropBottom à 50, 100 points (et non 50) est retiré de la partie inférieure de votre image.
Exemple
Cet exemple montre comment rogner 20 points de la partie inférieure 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 = ActivePresentation.Slides(1)
myDocument.Shapes(3).PictureFormat.CropBottom = 20
Cet exemple montre comment rogner du bas 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.
percentToCrop = InputBox("What percentage do you " & _
"want to crop off the bottom 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.CropBottom = cropPoints
Voir aussi
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.