EffectiveResolution Property

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

expression.EffectiveResolution()

expression    Required. An expression that returns a PictureFormat object.

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