Zuschneiden des Objekts (Office)
Ein Objekt zum Entfernen eines Bildteils.
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
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.