Propriété PictureFormat.CropLeft (Publisher)

2023-04-07

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

Syntaxe

expression. CropLeft

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 droit 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 gauche du cadre et le bord gauche 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é CropLeft à 50, 100 points (et non 50) est retiré de la gauche de votre image.

Utilisez les propriétés CropRight, 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é gauche 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 _ 
 .CropLeft = 20

Cet exemple retire le pourcentage spécifié par l'utilisateur du côté gauche 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 left 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.CropLeft = 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.

Partager via