OberonPlace.com Forums  

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

Reply
 
Thread Tools Search this Thread Display Modes
  #1  
Old 02-08-2008, 02:00
ebu
Guest
 
Posts: n/a
Default 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

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


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 10:44
bug? on Zoom F3 wOxxOm General 1 31-01-2006 12:59


All times are GMT -5. The time now is 21:24.


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