PictureFormat.CropLeft-Eigenschaft (Word)

  • Artikel

Gibt die Anzahl der Punkte zurück, um die das angegebene Bild oder OLE-Objekt an der linken Seite zugeschnitten wird, oder legt die Anzahl fest. Wert vom Typ Single mit Lese-/Schreibzugriff.

Syntax

Ausdruck. CropLeft

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 Breite von 100 Punkt einfügen, skalieren es auf eine Breite von 200 Punkt und anschließend für die CropLeft -Eigenschaft 50 festlegen, werden 100 Punkt (nicht 50) von der linken Seite des Bilds abgeschnitten.

Beispiel

In diesem Beispiel wird von der linken Seite 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.CropLeft = 20

In diesem Beispiel wird der vom Benutzer festgelegte prozentuale Anteil von der linken Seite 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 left 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.CropLeft = sngCrop

Siehe auch

PictureFormat-Objekts

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.