Propriété PictureFormat.CropBottom (Publisher)

Cette propriété renvoie ou définit un Variant indiquant l'importance du rognage du bord inférieur d'une image ou un objet OLE. Lecture-écriture.

Syntaxe

expression. CropBottom

Expression Variable qui représente un objet PictureFormat .

Valeur renvoyée

Variant

Remarques

Les valeurs numériques sont évaluées en points ; les chaînes peuvent être dans n’importe quelle unité prise en charge par Microsoft Publisher (par exemple, « 2,5 pouces »).

Les valeurs négatives rognez le bord inférieur à partir du centre du cadre, et les valeurs positives rognez vers le bord supérieur du cadre.

L'intervalle admis pour les valeurs de rognage varie selon la position et la taille du cadre. Pour un cadre non rotationné, la valeur négative la plus faible autorisée est la distance entre le bord inférieur du cadre et le bord inférieur de la zone de travail. La plus grande valeur positive autorisée est la hauteur du cadre.

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.

Utilisez les propriétés CropLeft, CropRight et CropTop pour rogner les autres côtés d'une image ou d'un objet OLE.

Exemple

Cet exemple retire 20 points du bas de la troisième forme dans la composition active. Pour que la démonstration fonctionne, la forme doit être une image ou un objet OLE.

ActiveDocument.Pages(1).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.

Dim sngPercent As Single 
Dim shpCrop As Shape 
Dim sngPoints As Single 
Dim sngHeight As Single 
 
sngPercent = InputBox("What percentage do you " & _ 
 "want to crop off the bottom of this picture?") 
 
Set shpCrop = Selection.ShapeRange(1) 
With shpCrop.Duplicate 
 .ScaleHeight Factor:=1, _ 
 RelativeToOriginalSize:=True 
 sngHeight = .Height 
 .Delete 
End With 
 
sngPoints = sngHeight * sngPercent / 100 
 
shpCrop.PictureFormat.CropBottom = sngPoints 

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.