Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
Devolve uma constante PbImageFormat que representa o formato de imagem de uma imagem conforme determinado pela Interface de Dispositivo Gráfico do Microsoft Windows (GDI+). Somente leitura.
Sintaxe
expressão. Formatação de Imagem
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 seguinte para obter conversões de formato de ficheiro específicas.
| 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 operativo Windows e do sistema operativo Windows Server que fornece gráficos de vetor bidimensionais, 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.