PictureFormat.CropBottom-Eigenschaft (Excel)

Gibt die Anzahl der Punkte zurück, die am unteren Rand des angegebenen Bilds oder OLE-Objekts zugeschnitten werden, oder legt sie fest. Wert vom Typ Single mit Lese-/Schreibzugriff.

Syntax

Ausdruck. CropBottom

Ausdruck Ein Ausdruck, der ein PictureFormat-Objekt zurückgibt.

HinwBemerkungeneise

Das Zuschneiden wird relativ zur ursprünglichen Größe des Bilds berechnet. Wenn Sie beispielsweise ein Bild einfügen, das ursprünglich 100 Punkte hoch ist, skalieren Sie es so neu, dass es 200 Punkte hoch ist, und legen Sie dann die CropBottom-Eigenschaft auf 50 fest. 100 Punkt (nicht 50) werden am unteren Rand des Bilds zugeschnitten.

Beispiel

In diesem Beispiel werden 20 Punkt von der Unterseite von Form 3 in myDocument abgeschnitten. Damit dieses Beispiel ordnungsgemäß ausgeführt werden kann, muss Form 3 entweder eine Grafik oder ein OLE-Objekt sein.

Set myDocument = Worksheets(1) 
myDocument.Shapes(3).PictureFormat.CropBottom = 20

In diesem Beispiel können Sie den Prozentsatz angeben, den Sie am unteren Rand der ausgewählten Form abschneiden möchten, unabhängig davon, ob die Form skaliert wurde. Dieses Beispiel funktioniert nur, wenn die ausgewählte Form ein Bild oder ein OLE-Objekt ist.

percentToCrop = InputBox( _ 
 "What percentage do you want to crop off" & _ 
 " the bottom of this picture?") 
Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1) 
With shapeToCrop.Duplicate 
 .ScaleHeight 1, True 
 origHeight = .Height 
 .Delete 
End With 
cropPoints = origHeight * percentToCrop / 100 
shapeToCrop.PictureFormat.CropBottom = cropPoints

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.