Crop.ShapeLeft-Eigenschaft (Office)

Hiermit wird die Position der linken Seite einer zum Zuschneiden eines Bilds verwendeten Form abgerufen oder festgelegt. Lese-/Schreibzugriff.

Syntax

Ausdruck verwendet werden. ShapeLeft

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

Rückgabewert

Einzel

Hinweise

In Microsoft Word geben die Eigenschaften "ShapeLeft" und "ShapeTop" einen Fehler zurück, wenn der Umbruchtext für das Bild oder die Form auf "Mit Text inline" festgelegt ist.

Beispiel

Im folgenden Beispiel wird ein 200 x 200-Bild in eine PowerPoint-Präsentation ungefähr in der Mitte der Folie eingefügt. Danach wird die Bildgröße im Rahmen auf 100 x 100 geändert. Der Bildrahmen behält seine Größe 200 x 200 bei. Der Code fügt dann ein Quadrat (die Standardform) direkt über und rechts neben dem Bild hinzu, wodurch im Wesentlichen die untere linke Ecke des Bildes abgeschnitten wird.

Sub CropImage() 
 ActivePresentation.Slides(1).Shapes.AddPicture "c:\myImage.png", msoFalse, msoTrue, 250,150, 200, 200 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.PictureHeight = 100 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.PictureWidth = 100 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.PictureOffsetX = 0 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.PictureOffsetY = 0 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.ShapeHeight = 100 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.ShapeWidth = 100 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.ShapeLeft = 330 
 ActivePresentation.Slides(1).Shapes(1).PictureFormat.Crop.ShapeTop = 170 
End Sub 

Siehe auch

• Zuschneiden von Objektelementen

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.