Classe PictureFormat (PowerPoint VBA)

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

Set

Para usar uma variável de classe PictureFormat, ela primeiro precisa ser instanciada por exemplo 

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

Os procedimentos a seguir podem ser usados ​​para definir variáveis ​​do tipo PictureFormat: ChartFormat.PictureFormat, Shape.PictureFormat, ShapeRange.PictureFormat e TableBackground.Picture

Temas

Os procedimentos a seguir nesta aula foram agrupados e são descritos em uma página de tema separada

Format with its procedures ColorType e TransparencyColor

Propriedades

Brightness Retorna ou define o brilho do objeto OLE ou da imagem especificada. Leitura/gravação.

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

Contrast Retorna ou define o contraste do objeto OLE ou da imagem especificada.

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

Crop Retorna ou define o número de pontos cortados da imagem ou do objeto OLE especificado. Somente leitura.

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

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

ActivePresentation.Slides(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. Leitura/gravação.

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

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

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

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

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

Parent Retorna o objeto parente para o objeto especificado.

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

TransparentBackground Determina se partes da figura que têm a cor definida como cor transparente irão aparecer transparentes. Aplica-se apenas a bitmaps. Leitura/gravação.

ActiveWindow.RangeFromPoint.PictureFormat.TransparentBackground = msoTrue