PictureFormat.EffectiveResolution Property

  • Article
Publisher Developer Reference

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.

Visual Basic for Applications 
  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: " &amp; .<strong>EffectiveResolution</strong>
                    End If
                End If
            End With
        
        End If
    
    Next shpLoop
Next pgLoop



End Sub

See Also