Compartilhar via

Propriedade PictureFormat.ImageFormat (Publisher)

  • Artigo

Retorna uma constante PbImageFormat que representa o formato de imagem de uma imagem conforme determinado pela GDI +. Somente leitura.

Sintaxe

expressão. Imageformat

Expressão Uma variável que representa um objeto PictureFormat .

Valor de retorno

PbImageFormat

Comentários

A propriedade ImageFormat se aplica à imagem original, em vez da imagem de espaço reservado, se houver uma.

O valor da propriedade ImageFormat pode ser uma das seguintes constantes PbImageFormat declaradas na biblioteca de tipos do Microsoft Publisher.

A propriedade ImageFormat indica o formato da imagem depois que ela foi importada para o ambiente do Windows, em vez de formato de arquivo original. Se o formato de arquivo da imagem não é naturalmente compatível com o sistema operacional Windows, a imagem é convertida em um formato análogo originalmente suportado. Como resultado, as constantes pbImageFormatCMYKJPEG, pbImageFormatDIB, pbImageFormatEMF, pbImageFormatGIF e pbImageFormatPICT raramente, nunca, retornarão.

Consulte a tabela a seguir para obter conversões específicas de formato de arquivo.

Formato de arquivo Constante retornada
.bmp, .dib, .gif, .pict pbImageFormatPNG
.emf, .eps, .epfs pbImageFormatWMF
CMYK .jfif, .jpeg, .jpg pbImageFormatJPEG

O Windows GDI+ é a parte do sistema operacional Windows e do sistema operacional Windows Server que fornece gráficos bidimensionais de vetor, imagens e tipografia.

Exemplo

O exemplo a seguir imprime uma lista das imagens .jpg e .jpeg presentes na publicação ativa.

Dim pgLoop As Page 
Dim shpLoop As Shape 
 
For Each pgLoop In ActiveDocument.Pages 
 For Each shpLoop In pgLoop.Shapes 
 
 If shpLoop.Type = pbPicture Or shpLoop.Type = pbLinkedPicture Then 
 
 With shpLoop.PictureFormat 
 If .IsEmpty = msoFalse Then 
 
 If .ImageFormat = pbImageFormatJPEG Then 
 Debug.Print .Filename 
 End If 
 
 End If 
 End With 
 
 End If 
 
 Next shpLoop 
Next pgLoop

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.