PictureFormat.EffectiveResolution Property (Publisher)
Returns a Long that represents, in dots per inch (dpi), the effective resolution of the picture. Read-only.
expression A variable that represents an PictureFormat object.
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.
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