Propriété PictureFormat.CropRight (PowerPoint)

  • Article

Renvoie ou définit le nombre de points rognés du côté droit de l’image ou de l’objet OLE spécifié. En lecture/écriture

Syntaxe

expression. CropRight

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é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 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.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.

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

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.