PictureFormat.OriginalResolution Property (Publisher)
Returns a Long that represents, in dots per inch (dpi), the resolution at which the linked picture was originally scanned. Read-only.
expression A variable that represents an PictureFormat object.
This property only applies to linked pictures. Returns "Permission Denied" for shapes representing embedded or pasted pictures.
Use the EffectiveResolution property to determine the resolution at which the picture or OLE object prints in the specified document.
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