Compartilhar via

Propriedade PictureFormat.EffectiveResolution (Publisher)

  • Artigo

Retorna um Long que representa, em pontos por polegada (dpi), a resolução efetiva da imagem. Somente leitura.

Sintaxe

expressão. EffectiveResolution

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

Valor de retorno

Long

Comentários

A resolução real de uma imagem é inversamente proporcional ao dimensionamento no qual a imagem é impressa. Quanto maior o dimensionamento, menor a resolução real. Por exemplo, suponha que uma imagem medindo 10 cm por 10 cm foi originalmente digitalizada a 300 dpi. Se essa imagem for dimensionada para 5 cm por 5 cm, sua resolução real será 600 dpi.

Use a propriedade OriginalResolution para determinar a resolução de imagens vinculadas ou objetos OLE.

Use as propriedades HorizontalScale e VerticalScale para determinar o dimensionamento da imagem.

Exemplo

O exemplo a seguir retorna uma lista de imagens cuja resolução real fica abaixo de um limite especificado (100 dpi) na publicação ativa.

Sub ListLowResolutionPictures() 
 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 .EffectiveResolution < 100 Then 
 Debug.Print .Filename 
 Debug.Print "Page " & pgLoop.PageNumber 
 Debug.Print "Resolution in publication: " & .EffectiveResolution 
 End If 
 End If 
 End With 
 
 End If 
 
 Next shpLoop 
 Next pgLoop 
 
End Sub

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.