Share via

OriginalResolution Property [Publisher 2003 VBA Language Reference]

  • Article

Returns a Long that represents, in dots per inch (dpi), the resolution at which the linked picture was originally scanned. Read-only.

expression.OriginalResolution()

expression Required. An expression that returns a PictureFormat object.

Remarks

This property only applies to linked pictures. Returns "Permission Denied" for shapes representing embedded or pasted pictures.

To determine whether a shape represents a linked picture, use either the Type property of the Shape object, or the IsLinked property of the PictureFormat object.

Use the EffectiveResolution property to determine the resolution at which the picture or OLE object will print in the specified document.

Example

The following example tests each picture in the active publication, and returns selected image properties for pictures that are linked.

Dim pgLoop As Page
Dim shpLoop As Shape

For Each pgLoop In ActiveDocument.Pages
    For Each shpLoop In pgLoop.Shapes
        If shpLoop.Type = pbLinkedPicture Then
        
            With shpLoop.PictureFormat
                   
                        Debug.Print "File Name: " & .Filename
                        Debug.Print "Resolution in Publication: " & .EffectiveResolution & " dpi"
                        Debug.Print "Original Resolution: " & .OriginalResolution & " dpi"
                        
            End With
        End If
    Next shpLoop
Next pgLoop

Applies to | PictureFormat Object