Clase PictureFormat (PowerPoint VBA)

Contiene propiedades y métodos que se pueden aplicar a imágenes y objetos OLE.

Set

Para usar una variable de clase PictureFormat, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase PictureFormat : ChartFormat.PictureFormat, Shape.PictureFormat, ShapeRange.PictureFormat y TableBackground.Picture

Temas

Los siguientes procedimientos de esta clase se han agrupado y se describen en una página temática separada

Format with its procedures ColorType y TransparencyColor

Propiedades

Brightness Devuelve o establece el brillo de la imagen o el objeto OLE especificados. Lectura y escritura.

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

Contrast Devuelve o establece el contraste de la imagen o el objeto OLE especificados.

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

Crop Devuelve o establece el número de puntos recortados de la parte superior de la imagen o del objeto OLE especificados. Solo lectura.

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

CropBottom Devuelve o establece el número de puntos que se recortan de la parte inferior de la imagen o del objeto OLE especificados. Lectura y escritura.

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

CropLeft Devuelve o establece el número de puntos recortados del lado izquierdo de la imagen o del objeto OLE especificados. Lectura y escritura.

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

CropRight Devuelve o establece el número de puntos que se recortan del lado derecho de la imagen o del objeto OLE especificados. Lectura y escritura.

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

CropTop Devuelve o establece el número de puntos recortados de la parte superior de la imagen o del objeto OLE especificados. Lectura y escritura.

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

Parent Devuelve el objeto primario del objeto especificado.

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

TransparentBackground Determina si las partes de la imagen que son del color definido como transparente se muestran transparentes. Solo se aplica a mapas de bits. Lectura y escritura.

ActiveWindow.RangeFromPoint.PictureFormat.TransparentBackground = msoTrue