Compartilhar via

Propriedade PictureFormat.OriginalResolution (Publisher)

  • Artigo

Retorna um Long que representa, em pontos por polegada (dpi), a resolução na qual a imagem vinculada foi originalmente examinada. Somente leitura.

Sintaxe

expressão. OriginalResolution

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

Valor de retorno

Long

Comentários

Esta propriedade aplica-se somente a imagens vinculadas. Retorna "Permission Denied" para formas que representam imagens incorporadas ou coladas.

Use as propriedades a seguir para determinar se uma forma representa uma imagem vinculada:

  • A propriedade Type do objeto Shape
  • A propriedade IsLinked do objeto PictureFormat

Use a propriedade EffectiveResolution para determinar a resolução na qual a imagem ou o objeto OLE será impresso no documento especificado.

Exemplo

O exemplo a seguir testa cada imagem na publicação ativa e retorna propriedades de imagens selecionadas para imagens não vinculadas.

Dim pgLoop As Page 
Dim shpLoop As Shape 
 
For Each pgLoop In ActiveDocument.Pages 
 For Each shpLoop In pgLoop.Shapes 
 If shpLoop.Type = pbLinkedPicture Then 
 
 With shpLoop.PictureFormat 
 
 Debug.Print "File Name: " & .Filename 
 Debug.Print "Resolution in Publication: " & .EffectiveResolution & " dpi" 
 Debug.Print "Original Resolution: " & .OriginalResolution & " dpi" 
 
 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.