Propiedad PictureFormat.EffectiveResolution (Publisher)

Devuelve un Long que representa, en puntos por pulgada (PPP), la resolución eficaz de la imagen. Solo lectura.

Sintaxis

expresión. EffectiveResolution

expresión Variable que representa un objeto PictureFormat .

Valor devuelto

Long

Observaciones

La resolución eficaz de una imagen es inversamente proporcional a la escala en la que se imprime. Cuanto mayor sea la escala, menor será la resolución eficaz. Por ejemplo, imagine una imagen que mide 4 x 4 pulgadas y que, originalmente, se digitalizó a 300 ppp. Si ajusta el tamaño de esa imagen a 2 x 2 pulgadas, la resolución eficaz será de 600 ppp.

Utilice la propiedad OriginalResolution para determinar la resolución de imágenes vinculadas u objetos OLE.

Utilice las propiedades HorizontalScale y VerticalScale para determinar la escala de una imagen.

Ejemplo

En el siguiente ejemplo se devuelve una lista de imágenes cuya resolución eficaz es inferior al umbral especificado (100 ppp) en la publicación activa.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.