PictureFormat.CropRight-Eigenschaft (Publisher)

Gibt ein, oder legt einen Variant-Wert, der angibt, dem rechten Rand eines Bilds oder OLE-Objekts zugeschnitten wird. Lese-/Schreibzugriff.

Syntax

Ausdruck. CropRight

Ausdruck Eine Variable, die ein PictureFormat-Objekt darstellt.

Rückgabewert

Variant

Bemerkungen

Numerische Werte werden in Punkten ausgewertet; Zeichenfolgen können in beliebigen Einheiten enthalten sein, die von Microsoft Publisher unterstützt werden (z. B. "2,5 zoll").

Negative Werte schneiden den unteren Rand von der Mitte des Rahmens ab, und positive Werte werden an den linken Rand des Rahmens zugeschnitten.

Der gültige Bereich für Zuschneidewerte hängt von Position und Größe des Rahmens ab. Bei einem nicht gedrehten Frame ist der niedrigste negative Wert zulässig der Abstand zwischen dem rechten Rand des Rahmens und dem rechten Rand des Abkratzbereichs. Der höchste gültige positive Wert entspricht der aktuellen Rahmenbreite.

Das Zuschneiden wird relativ zur ursprünglichen Größe des Bilds berechnet. Angenommen, wenn Sie ein Bild mit der ursprünglichen Breite von 100 Punkt einfügen, skalieren es auf eine Breite von 200 Punkt und anschließend für die CropRight -Eigenschaft 50 festlegen, werden 100 Punkt (nicht 50) vom rechten Rand Ihres Bilds abgeschnitten.

Verwenden Sie die Eigenschaften CropLeft, CropTop und CropBottom, um die anderen Seiten einer Grafik oder eines OLE-Objekts zuzuschneiden.

Beispiel

Bei diesem Beispiel wird ein 20 Punkt großer Teil von der rechten Seite der dritten Form in der aktiven Publikation abgeschnitten. Dieses Beispiel kann nur ausgeführt werden, wenn es sich bei der Form um ein Bild oder ein OLE-Objekt handelt.

ActiveDocument.Pages(1).Shapes(3).PictureFormat _ 
 .CropRight = 20

Bei diesem Beispiel wird der vom Benutzer festgelegte prozentuale Anteil von der rechten Seite der gewählten Form abgeschnitten, unabhängig davon, ob die Form skaliert wurde oder nicht. Damit dieses Beispiel ausgeführt werden kann, muss es sich bei der Form um ein Bild oder ein OLE-Objekt handeln.

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 

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.