Crop.ShapeTop-Eigenschaft (Office)

Hiermit wird die Position des oberen Rands einer zum Zuschneiden eines Bilds verwendeten Form abgerufen oder festgelegt. Lese-/Schreibzugriff.

Syntax

Ausdruck. ShapeTop

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 für das Bild oder die Form der Zeilenumbruchtext auf Inline mit Text 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 vom Bild hinzu, wobei im Wesentlichen die linke untere Ecke des Bilds zugeschnitten 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

• Elemente des Zuschneidens von Objekten

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.