How to calculate image height/width when export to image?

Hi, all,

Sometimes we might insert shapes outside the range of the page, I would include them when exported to image, in this case , how to calculate the image height and width value?

Thanks,

Lohmac

[shelbym]

You can select all the shapes and get the bounding box size. This will give you the height and width.

Sub GetMySizes()
    Dim sr As ShapeRange
    Dim x As Double, y As Double, w As Double, h As Double
    
    Set sr = ActivePage.Shapes.All
    sr.GetBoundingBox x, y, w, h
    
    MsgBox "w: " & w & ", h: " & h
End Sub

-Shelby

[runflacruiser]

Hi.
Also see this thread.

http://forum.oberonplace.com/showthread.php?t=6605&highlight=export

-John