Clase PictureFormat (Excel VBA)

Contiene las propiedades y métodos que se aplican a imágenes y objetos OLE.

Métodos

Otros Métodos

IncrementBrightness - Cambia el brillo de la imagen en la cantidad especificada.

IncrementContrast - Cambia el contraste de la imagen en la cantidad especificada.

Propiedades

Brightness Devuelve o establece el brillo de la imagen especificada o un objeto OLE.

pft.Brightness =

ColorType Devuelve o establece el tipo de transformación de color aplicado a la imagen o el objeto OLE especificados.

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

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

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

Crop Devuelve un objeto de recorte que representa la configuración de recorte del objeto PictureFormat especificado.

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

CropBottom Devuelve o establece el número de puntos recortados de la parte inferior de la imagen especificada o del objeto OLE.

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

CropLeft Devuelve o establece el número de puntos que se recortará el lado izquierdo de la imagen especificada o un objeto OLE.

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

CropRight Devuelve o establece el número de puntos recortados del lado derecho de la imagen especificada o del objeto OLE.

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

CropTop Devuelve o establece el número de puntos recortados de la parte superior de la imagen especificada o del objeto OLE.

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

Parent Devuelve el objeto primario del objeto especificado.

Dim objParent As Object
Set objParent = pft.Parent

TransparencyColor Devuelve o establece el color transparente de la imagen especificada como un valor rojo, verde y azul (RGB).

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

TransparentBackground Utilice la propiedad TransparencyColor para establecer el color transparente.

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