Propriété PictureFormat.CropRight (Publisher)

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

Syntaxe

expression. CropRight

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 loin du centre du cadre, et les valeurs positives rognez vers le bord gauche du cadre.

L'intervalle admis pour les valeurs de rognage varie selon la position et la taille du cadre. Pour un cadre non pertuté, la valeur négative la plus faible autorisée est la distance entre le bord droit du cadre et le bord droit de la zone de travail. La plus grande valeur positive autorisée est la largeur 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 s'agit d'une largeur de 200 points, et puis définissez la propriété CropRight à 50, 100 points (et non 50) est retiré de la droite de votre image.

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

Exemple

Cet exemple retire 20 points du côté droit 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 _ 
 .CropRight = 20

Cet exemple retire le pourcentage spécifié par l'utilisateur du côté droit de la forme sélectionnée, quel que soit le redimensionnement subi par cette forme. Pour que la démonstration 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 sngWidth As Single 
 
sngPercent = InputBox("What percentage do you " & _ 
 "want to crop off the right of this picture?") 
 
Set shpCrop = Selection.ShapeRange(1) 
With shpCrop.Duplicate 
 .ScaleWidth Factor:=1, _ 
 RelativeToOriginalSize:=True 
 sngWidth = .Width 
 .Delete 
End With 
 
sngPoints = sngWidth * sngPercent / 100 
 
shpCrop.PictureFormat.CropRight = 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.