PictureFormat.CropBottom-Eigenschaft (Word)
Gibt die Anzahl der Punkte zurück, um die das angegebene Bild oder OLE-Objekt an der unteren Seite zugeschnitten wird, oder legt die Anzahl fest. Wert vom Typ Single mit Lese-/Schreibzugriff.
Syntax
Ausdruck. CropBottom
Ausdruck Eine Variable, die ein PictureFormat-Objekt darstellt.
HinwBemerkungeneise
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.
Beispiel
In diesem Beispiel wird vom unteren Rand der Form 3 im aktiven Dokument ein Teil mit einer Größe von 20 Punkt abgeschnitten. Damit dieses Beispiel ordnungsgemäß ausgeführt werden kann, muss Form 3 entweder eine Grafik oder ein OLE-Objekt sein.
ActiveDocument.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 dblPercent As Double
Dim shapeCrop As Shape
Dim sngHeight As Single
Dim sngCrop As Single
dblPercent = Val(InputBox("What percentage do you want " _
& "to crop off the bottom of this picture?"))
Set shapeCrop = _
Selection.ShapeRange(1)
With shapeCrop.Duplicate
.ScaleHeight 1, True
sngHeight = .Height
.Delete
End With
sngCrop = sngHeight * dblPercent / 100
shapeCrop.PictureFormat.CropBottom = sngCrop
Siehe auch
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für