OberonPlace.com Forums  

Go Back   OberonPlace.com Forums > Developer Forums > VBA > CorelDRAW/Corel DESIGNER VBA

Thread Tools Search this Thread Display Modes
Old 02-08-2008, 03:00
Posts: n/a
Default Zoom in Corel 11

it's ok. I use the build in Zoom...


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?


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

Last edited by ebu; 02-08-2008 at 16:12.
Reply With Quote

Currently Active Users Viewing This Thread: 1 (0 members and 1 guests)
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
Lost toolbar zoom tools when opening zoom justsmilin General 3 02-05-2007 11:44
bug? on Zoom F3 wOxxOm General 1 31-01-2006 13:59

All times are GMT -5. The time now is 07:11.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
Copyright © 2011, Oberonplace.com