Crop.PictureWidth-Eigenschaft (Office)

Ruft die Breite des zuzuschneidenden Bilds ab oder legt sie fest. Lese-/Schreibzugriff.

Syntax

Ausdruck. PictureWidth

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

Rückgabewert

Einzel

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.