Classe PictureFormat (Excel VBA)

Contém propriedades e métodos que se aplicam a imagens e objetos OLE.

Métodos

Estes são os principais métodos da classe

IncrementBrightness - Altera o brilho da figura pelo valor especificado. Use a propriedade Brightness para definir o brilho absoluto da figura.

IncrementContrast - Altera o contraste da figura pelo valor especificado. Use a propriedade Contrast para definir o contraste absoluto da imagem.

Propriedades

Brightness Retorna ou define o brilho da imagem especificada ou objeto OLE. O valor dessa propriedade deve ser um número de 0,0 mais esmaecido a 1,0 (mais brilhante). Leitura/gravação único.

pft.Brightness =

ColorType Retorna ou define o tipo de transformação de cores aplicada à imagem ou ao objeto OLE especificado. Leitura/gravação.

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

Contrast Retorna ou define o contraste da imagem especificada ou objeto OLE. O valor dessa propriedade deve ser um número de 0,0 o menor contraste a 1,0 (o maior contraste). Leitura/gravação único.

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

Crop Retorna um objeto recortar que representa as configurações de corte para o objeto PictureFormat especificado. Somente leitura.

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

CropBottom Retorna ou define o número de pontos cortados da parte inferior da imagem ou do objeto OLE especificado. Somente leitura/gravação.

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

CropLeft Retorna ou define o número de pontos cortados do lado esquerdo da imagem ou do objeto OLE especificado. Somente leitura/gravação.

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

CropRight Retorna ou define o número de pontos cortados do lado direito da imagem ou do objeto OLE especificado. Somente leitura/gravação.

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

CropTop Retorna ou define o número de pontos cortados da parte superior da imagem ou do objeto OLE especificado. Somente leitura/gravação.

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

Parent Retorna o objeto pai do objeto especificado. Somente leitura.

Dim objParent As Object
Set objParent = pft.Parent

TransparencyColor Retorna ou define a cor transparente para a imagem especificada como um valor vermelho-verde-azul RGB. Para essa propriedade tenha efeito, a propriedade TransparentBackground deve ser definida como True. Aplica-se somente a bitmaps. Long de leitura/gravação.

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

TransparentBackground Use a propriedade TransparencyColor para definir a cor transparente. Aplica-se somente a bitmaps. MsoTriState de leitura/gravação.

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