PictureFormat.OriginalFileSize property (Publisher)

Returns a Long representing the size, in bytes, of the linked picture or OLE object. Read-only.

Syntax

expression.OriginalFileSize

expression A variable that represents a PictureFormat object.

Remarks

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

Use either of the following properties to determine whether a shape represents a linked picture:

• The Type property of the Shape object
• The IsLinked property of the PictureFormat object

Example

The following example tests each picture in the active publication, and prints 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 "Original File Size: " & .OriginalFileSize & " bytes" 
 
 End With 
 End If 
 Next shpLoop 
Next pgLoop 

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.