Propriété PictureFormat.CropLeft (PowerPoint)

Renvoie ou définit le nombre de points rognés du côté gauche de l’image ou de l’objet OLE spécifié. Lecture-écriture.

Syntaxe

expression. CropLeft

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 s'agit d'une largeur de 200 points, et puis définissez la propriété CropLeft à 50, 100 points (et non 50) est retiré de la partie gauche de votre image.

Exemple

Cet exemple montre comment rogner 20 points du côté gauche 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.CropLeft = 20

Cet exemple montre comment rogner du côté gauche 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 left of this picture?")

Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1)

With shapeToCrop.Duplicate
    .ScaleWidth 1, True
    .Width = origWidth
    .Delete
End With

cropPoints = origWidth * percentToCrop / 100
shapeToCrop.PictureFormat.CropLeft = cropPoints

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.