PictureFormat.EffectiveResolution Property (Publisher)

Returns a Long that represents, in dots per inch (dpi), the effective resolution of the picture. Read-only.

Syntax

expression. EffectiveResolution

expression A variable that represents an PictureFormat object.

Return Value

Long

Remarks

The effective resolution of a picture is inversely proportional to the scaling at which the picture is printed. The larger the scaling, the lower the effective resolution. For example, suppose a picture measuring 4 inches by 4 inches was originally scanned at 300 dpi. If that picture is scaled to 2 inches by 2 inches, its effective resolution is 600 dpi.

Use the OriginalResolution property of the PictureFormat object to determine the resolution of linked pictures or OLE objects. Use the HorizontalScale and VerticalScale properties to determine the scaling of a picture.

Example

The following example returns a list of pictures whose effective resolution falls below a specified threshold (100 dpi) in the active publication.

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