Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Gibt ein, oder legt einen Variant-Wert, der angibt, dem unteren Rand eines Bilds oder OLE-Objekts zugeschnitten wird. Lese-/Schreibzugriff.
Syntax
Ausdruck verwendet werden. CropBottom
Ausdruck Eine Variable, die ein PictureFormat-Objekt darstellt.
Rückgabewert
Variant
Hinweise
Numerische Werte werden in Punkten ausgewertet; Zeichenfolgen können in allen von Microsoft Publisher unterstützten Einheiten vorliegen (z. B. "2,5 Zoll").
Bei negativen Werten wird der untere Rand von der Bildmitte weg zugeschnitten, während bei positiven Werten der obere Rand des Rahmens zugeschnitten wird.
Der gültige Bereich für Zuschneidewerte hängt von Position und Größe des Rahmens ab. Bei einem ungedrehten Rahmen ist der niedrigste negative Wert, der zulässig ist, der Abstand zwischen der Unterkante des Rahmens und der Unterkante 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.