Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Ruft den Versatz an der x-Achse des Bilds ab, das zugeschnitten werden soll, oder legt ihn fest. Lese-/Schreibzugriff.
Syntax
Ausdruck verwendet werden. PictureOffsetX
Ausdruck Ein Ausdruck, der ein Crop-Objekt zurückgibt.
Rückgabewert
Einzel
Hinweise
OffsetX und OffsetY sind relativ zur Mitte der Form und des Bilds.
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
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.