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; 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
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.
You can copy that in if you want. With the single apostrophe as the first character, this means that line is disregarded in the VBA editor.
OK, so what do I do now? Can't seem to figure it out.
Oh, wait . . . I think I see.
I assigned shortcut keys, but it doesn't seem to be working.
When I use the shortcut keys, it opens up the macro in the VB editor, and when I go to close that window, I get the message, "this command will stop the debugger."