PictureFormat.CropLeft-Eigenschaft (Publisher)

Gibt ein, oder legt einen Variant-Wert, der angibt, in der linken Kante einer Grafik oder das OLE-Objekt zugeschnitten wird. Lese-/Schreibzugriff.

Syntax

Ausdruck. CropLeft

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 schneiden an den rechten Rand des Rahmens zu.

Der gültige Bereich für Zuschneidewerte hängt von Position und Größe des Rahmens ab. Für einen nicht gedrehten Frame ist der niedrigste negative Wert zulässig, der Abstand zwischen dem linken Rand des Rahmens und dem linken Rand des Kratzbereichs. 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 CropLeft -Eigenschaft 50 festlegen, werden 100 Punkt (nicht 50) vom linken Rand Ihres Bilds abgeschnitten.

Verwenden Sie die Eigenschaften CropRight, 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 linken 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 _ 
 .CropLeft = 20

Bei diesem Beispiel wird der vom Benutzer festgelegte prozentuale Anteil von der linken 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 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 

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.