Classe PictureFormat (PowerPoint VBA)

Contient des propriétés et des méthodes qui s’appliquent aux images et aux objets OLE.

Set

Pour utiliser une variable de classe PictureFormat, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe PictureFormat : ChartFormat.PictureFormat, Shape.PictureFormat, ShapeRange.PictureFormat et TableBackground.Picture

Thèmes

Les procédures suivantes de cette classe ont été regroupées et sont décrites sur une page thématique séparée

Format with its procedures ColorType et TransparencyColor

Propriétés

Brightness Renvoie ou définit la luminosité de l’image ou de l’objet OLE spécifié. Lecture-écriture.

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

Contrast Renvoie ou définit le contraste appliqué à l’image ou à l’objet OLE spécifié.

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

Crop Renvoie ou définit le nombre de points rognés dans l’image ou l’objet OLE spécifié. En lecture seule.

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

CropBottom Renvoie ou définit le nombre de points rognés du bas de l’image ou de l’objet OLE spécifié. Lecture-écriture.

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

CropLeft Renvoie ou définit le nombre de points rognés du côté gauche de l’image ou de l’objet OLE spécifié. Lecture-écriture.

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

CropRight Renvoie ou définit le nombre de points rognés du côté droit de l’image ou de l’objet OLE spécifié. Lecture-écriture.

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

CropTop Renvoie ou définit le nombre de points rognés du haut de l’image ou de l’objet OLE spécifié. Lecture-écriture.

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

Parent Renvoie l’objet parent de l’objet spécifié.

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

TransparentBackground Détermine si les parties de l’image dont la couleur est définie comme transparente apparaissent transparentes. Ne s’applique qu’aux bitmaps. Lecture-écriture.

ActiveWindow.RangeFromPoint.PictureFormat.TransparentBackground = msoTrue