Klasse PictureFormat (PowerPoint VBA)

Enthält Eigenschaften und Methoden, die Grafiken und OLE-Objekten zugewiesen werden.

Set

Um eine PictureFormat -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

Dim pft as PictureFormat
Set pft = ActiveWindow.RangeFromPoint.PictureFormat

Die folgenden Prozeduren können zum Festlegen der PictureFormat Klassenvariablen verwendet werden : ChartFormat.PictureFormat, Shape.PictureFormat, ShapeRange.PictureFormat und TableBackground.Picture

Themas

Die folgenden Prozeduren in dieser Klasse wurden zusammengefasst und auf eine separate Themenseite beschrieben

Format with its procedures ColorType und TransparencyColor

Eigenschaften

Brightness Gibt die Helligkeit des angegebenen Bildes oder OLE-Objekts zurück oder legt sie fest. Lese-/Schreibzugriff.

ActivePresentation.Slides(1).Shapes(1).PictureFormat.Brightness = 0.3

Contrast Gibt den Kontrast des angegebenen Bilds oder OLE-Objekts zurück oder legt ihn fest.

ActivePresentation.Slides(1).Shapes(1).PictureFormat.Contrast = 0.8

Crop Gibt die Anzahl der Punkte zurück, um die das angegebene Bild oder OLE-Objekt zugeschnitten wird, oder legt die Anzahl fest. Schreibgeschützt.

Dim crpCrop As Office.Crop
Set crpCrop = ActiveWindow.RangeFromPoint.PictureFormat.Crop

CropBottom 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.

ActivePresentation.Slides(1).Shapes(1).PictureFormat.CropBottom = 20

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

ActivePresentation.Slides(1).Shapes(1).PictureFormat.CropLeft = 20

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

ActivePresentation.Slides(1).Shapes(1).PictureFormat.CropRight = 20

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

ActivePresentation.Slides(1).Shapes(1).PictureFormat.CropTop = 20

Parent Gibt das übergeordnete Objekt für das angegebene Objekt zurück.

Dim objParent As Object
Set objParent = ActiveWindow.RangeFromPoint.PictureFormat.Parent

TransparentBackground Bestimmt, ob Teile der Grafik, die als transparente Farbe definiert sind, transparent angezeigt werden. Gilt nur für Bitmaps. Lese-/Schreibzugriff.

ActiveWindow.RangeFromPoint.PictureFormat.TransparentBackground = msoTrue