Propriété PictureFormat.CropTop (PowerPoint)

  • Article

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

Syntaxe

expression. CropTop

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é CropTop à 50, 100 points (et non 50) est retiré de la partie supérieure 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 = ActivePresentation.Slides(1)

myDocument.Shapes(3).PictureFormat.CropTop = 20

Cet exemple montre comment rogner du haut 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 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

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.