I'm used to working with a zoom that increases by 10% per click below 100%, and 20% above that. Is there a way to duplicate this? Using a drop-down menu is just too slow.Thanks,Ellen
Is there no way at all? That's sort of depressing, because I'm finding this extreme zooming very awkward. Could this be accomplished with a macro (not that I know how to write a macro)?
Hello ellenelle; If you have a wheel mouse then that can be adjusted in Windows for zooming in Corel and other programs.
George
ellenelle; If you hold down the Ctrl key you can pan left or right according to which way you turn the wheel, and if you hold down the Alt key you can pan up or down. It's the fastest way of getting around a drawing I have found yet. ( I got the info on this forum, like a lot of other things to make drawing easy and faster.) This is for Windows 7 64 bit with Corel X6.2
I appreciate your trying to help me in that respect. The trouble is that I have hand problems, I'm using adaptive devices – you can't imagine how much time and effort I put into getting things to work for me when I can't work with normal mice and keyboards – and there's a limit to what I can change before it starts to impact my physical comfort. When I say something works well for me, it's not just that I have accustomed myself to it, but that it works well for me physically.
ellenelle; I am SORRY, Sometimes I forget that not everyone is able to do things the same way. I do wish you GOOD LUCK in finding something that will work for you. Have you tried a search on the net?
Best Regards, George
No problem. Yes, I have been searching my brains out. Looks like somebody came up with a macro that might have done something like that, but when I clicked on the links it was no longer available. That's what led me to think it might be able to be done with a macro.
Hi.
You could assign a shortcut key to these. Adjust number as needed.
Sub zoomIn() ActiveWindow.ActiveView.Zoom = ActiveWindow.ActiveView.Zoom + 5End SubSub zoomOut() ActiveWindow.ActiveView.Zoom = ActiveWindow.ActiveView.Zoom - 5End Sub
~John
John, that sounds very promising, only you'll need to explain more, because I don't know what you mean by "sub." Is that code? Excuse my ignorance.Later, after taking another look:OK, those are the macros themselves? Thank you very much. So, I just need to install them? Have no experience with this, but very happy to learn. What do I need to do?
John
Your macro is very nice, but how do we get it to zoom in and out from either screen center, or cursor position.Not sure what origin it uses now, but it is very unpredictable.
Is it possible to add, easily?
Could someone please tell me what to do with that code? I haven't got the slightest idea. Thanks.
Try this one better.
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Sub zoomOut() 'run this one zoomInOrOut FalseEnd SubSub zoomIn() 'or run this one zoomInOrOut TrueEnd SubSub zoomInOrOut(ByVal bIn As Boolean) Dim sr As ShapeRange Dim x#, y#, dVal# dVal = 5 'zoom level <<Change as needed Set sr = ActiveSelectionRange If sr.count = 0 Then Set sr = ActivePage.Shapes.All If sr.count = 0 Then Exit Sub End If sr.GetPositionEx cdrCenter, x, y ActiveWindow.ActiveView.SetViewPoint x, y, ActiveWindow.ActiveView.Zoom + IIf(bIn, dVal, -dVal)End Sub
I'll try and make a video demonstrating exactly what to do with code you find on the forums. I'll try and make this later today and put in a blog post.
For now see this page.
I'm trying to follow the instructions on the page you linked to.As far as pasting in the code, my question is, is this part: '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ (at beginning and end) part of the code that should be pasted in?
Later: Well, I pasted it all in, but I still don't know how to make it work, so I can't test it.