PictureFormat.OriginalHeight Property

  • Article
Publisher Developer Reference

Returns a Variant representing the height, in points, of the specified linked picture or OLE object. Read-only.

Syntax

expression.OriginalHeight

expression   A variable that represents an PictureFormat object.

Return Value
Variant

Remarks

This property applies only to linked pictures or OLE objects. 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.

Example

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

Visual Basic for Applications 
  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 "Horizontal Scaling: " & .HorizontalScale & "%"
                    Debug.Print "Original Image Height: " &amp; .<strong>OriginalHeight</strong> &amp; " points"
                    Debug.Print "Height in publication: " &amp; .Height &amp; " points"
                    
        End With
    End If
Next shpLoop



Next pgLoop

See Also