Klasse PictureFormat (Excel VBA)

Enthält Eigenschaften und Methoden, die für Bilder und OLE-Objekte gelten.

Methoden

Andere Methoden

IncrementBrightness - Ändert die Helligkeit des Bildes um den angegebenen Wert.

IncrementContrast - Ändert den Kontrast des Bildes um den angegebenen Wert.

Eigenschaften

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

pft.Brightness =

ColorType Gibt den Typ der Farbtransformation zurück, welcher der angegebenen Grafik oder dem OLE-Objekt zugewiesen wird, oder legt diesen Typ fest.

Worksheets(1).Shapes(1).PictureFormat.ColorType = msoPictureGrayScale

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

Worksheets(1).Shapes(1).PictureFormat.Contrast = 0.8

Crop Gibt ein Crop -Objekt zurück, das die zuschneideneinstellungen für das angegebene PictureFormat -Objekt darstellt.

Dim crpCrop As Office.Crop
Set crpCrop = pft.Crop

CropBottom Gibt die Anzahl der Punkte zurück, die vom unteren Rand des angegebenen Bilds oder OLE-Objekts abgeschnitten werden, oder legt diese fest.

Worksheets(1).Shapes(1).PictureFormat.CropBottom = 20

CropLeft Gibt die Anzahl der Punkte zurück, die von der linken Seite des angegebenen Bilds oder OLE-Objekts abgeschnitten werden, oder legt diese fest.

Worksheets(1).Shapes(1).PictureFormat
pft.CropLeft =

CropRight Gibt die Anzahl der Punkte zurück, die von der rechten Seite des angegebenen Bilds oder OLE-Objekts abgeschnitten werden, oder legt diese fest.

Worksheets(1).Shapes(1).PictureFormat
pft.CropRight =

CropTop Gibt die Anzahl der Punkte zurück, die vom oberen Rand des angegebenen Bilds oder OLE-Objekts abgeschnitten werden, oder legt diese fest.

Worksheets(1).Shapes(1).PictureFormat
pft.CropTop =

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

Dim objParent As Object
Set objParent = pft.Parent

TransparencyColor Gibt die transparente Farbe für die angegebene Grafik als Rot-Grün-Blau-Wert (RGB) zurück oder legt sie fest.

Worksheets(1).Shapes(1).PictureFormat.TransparencyColor = RGB(0,0,255)'blue

TransparentBackground Verwenden Sie die TransparencyColor -Eigenschaft, um die transparente Farbe festzulegen.

Worksheets(1).Shapes(1).PictureFormat.TransparentBackground = True