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:
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.