PictureFormat.CropBottom-Eigenschaft (Publisher)

Artikel
04/07/2023

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

Syntax

Ausdruck. CropBottom

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 oberen 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 unteren Rand des Rahmens und dem unteren 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 CropBottom -Eigenschaft 50 festlegen, werden 100 Punkt (nicht 50) vom unteren Rand des Bildes abgeschnitten.

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

Beispiel

Bei diesem Beispiel wird ein 20 Punkt großer Teil von der unteren 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 _ 
 .CropBottom = 20

In diesem Beispiel wird der vom Benutzer festgelegte prozentuale Anteil vom unteren Rand 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 bottom 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.CropBottom = 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.

Freigeben über