PictureFormat.CropBottom-Eigenschaft (PowerPoint)

Artikel
04/07/2023

Gibt die Anzahl der Punkte zurück, um die das angegebene Bild oder OLE-Objekt an der unteren Seite zugeschnitten wird, oder legt die Anzahl fest. Lese-/Schreibzugriff.

Syntax

Ausdruck. CropBottom

Ausdruck Eine Variable, die ein PictureFormat-Objekt darstellt.

Rückgabewert

Single

HinwBemerkungeneise

Das Zuschneiden wird relativ zur ursprünglichen Größe des Bilds berechnet. Angenommen, wenn Sie ein Bild mit der ursprünglichen 100 Punkt einfügen, skalieren es auf eine hohe 200 Punkte und anschließend für die CropBottom -Eigenschaft 50 festlegen, werden 100 Punkt (nicht 50) vom unteren Rand des Bildes abgeschnitten.

Beispiel

In diesem Beispiel werden 20 Punkt von der Unterseite von Form 3 in myDocument abgeschnitten. Damit dieses Beispiel ordnungsgemäß ausgeführt werden kann, muss Form 3 entweder eine Grafik oder ein OLE-Objekt sein.

Set myDocument = ActivePresentation.Slides(1)

myDocument.Shapes(3).PictureFormat.CropBottom = 20

In diesem Beispiel wird der vom Benutzer festgelegte prozentuale Anteil vom unteren Rand der gewählten Form abgeschnitten, unabhängig davon, ob die Form skaliert wurde. Dieses Beispiel funktioniert nur, wenn die ausgewählte Form ein Bild oder ein OLE-Objekt ist.

percentToCrop = InputBox("What percentage do you " & _
    "want to crop off the bottom of this picture?")

Set shapeToCrop = ActiveWindow.Selection.ShapeRange(1)

With shapeToCrop.Duplicate
    .ScaleHeight 1, True
    origHeight = .Height
    .Delete
End With

cropPoints = origHeight * percentToCrop / 100

shapeToCrop.PictureFormat.CropBottom = cropPoints

Siehe auch

PictureFormat-Objekts

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.

Share via