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.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour