Table of contents
TOC
Collapse the table of content
Expand the table of content

PictureFormat.OriginalHeight Property (Publisher)

office 365 dev account|Last Updated: 8/24/2017
|
3 Contributors

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.

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: " &; .OriginalHeight &; " points" 
 Debug.Print "Height in publication: " &; .Height &; " points" 

 End With 
 End If 
 Next shpLoop 
Next pgLoop 
© 2018 Microsoft