Zoom in Corel 11

Edit,
it's ok. I use the build in Zoom...
Thanks



Hello,

I have get the coordinate from a rectangle in the guides. (Me seem, it is not the middlepoint). I want to set the coordinate in the centrum of the screen and increase the whole page to e.g. 1000%.

The centrum of the rectangle has to be the middle of the screen in the new resolution. Like a Zoom-function.

Is that possible?

Thanks....



Public Sub Zoom()
Dim sh As Shape
Dim xPos As Double, yPos As Double

ActivePage.Layers("Hilfslinien").Activate 'Guides
For Each sh In ActivePage.Shapes
If sh.Type = cdrRectangleShape Then
xPos = sh.PositionX
yPos = sh.PositionY
End If
Next sh

'.......

End Sub