PictureFormat.CropTop-Eigenschaft (Publisher)

  • Artikel

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

Syntax

Ausdruck. CropTop

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 oberen Rand von der Mitte des Rahmens ab, und positive Werte schneiden an den unteren Rand des Rahmens zu.

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 oberen Rand des Rahmens und dem oberen Rand des Kratzbereichs. Der höchste gültige positive Wert entspricht der aktuellen Rahmenhöhe.

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

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

In diesem Beispiel wird der vom Benutzer festgelegte prozentuale Anteil vom oberen Ende der gewählten Form abgeschnitten, unabhängig davon, ob die Form skaliert wurde. Dieses Beispiel funktioniert nur, wenn die ausgewählte Form ein Bild oder ein OLE-Objekt ist.

Dim sngPercent As Single 
Dim shpCrop As Shape 
Dim sngPoints As Single 
Dim sngHeight As Single 
 
sngPercent = InputBox("What percentage do you " & _ 
 "want to crop off the top of this picture?") 
 
Set shpCrop = Selection.ShapeRange(1) 
With shpCrop.Duplicate 
 .ScaleHeight Factor:=1, _ 
 RelativeToOriginalSize:=True 
 sngHeight = .Height 
 .Delete 
End With 
 
sngPoints = sngHeight * sngPercent / 100 
 
shpCrop.PictureFormat.CropTop = 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.