GDG Code Chunks, Discussion, VBA Snippets for CorelDRAW, Simple Macro Helpers!

MyAccount

Helpful VBA Code

GDG Macros Suite 2025 is available. All 2025 macros are available for purchase separately as well.
Enter discount code: GDG2DECADES for 20% OFF (limited time)
GDG Macros Suite Upgrade Discount: SENT VIA EMAIL to those eligible
Thank you! ~John
Best deal! ALL MACROS IN ONE SUITE:
GDG Macros Suite 2023 and GDG Macros Suite 2024 and GDG Macros Suite 2025
(older versions of the products available below, as well)

Join me on Facebook to stay up to date with news, updates. Subscribe to my YouTube Channel for tutorial videos and tips. Need a custom macro? Contact me.

Not all macros are guaranteed to be continued due to compatibility reasons or other. Read new-version policy here.
I appreciate everyone! Upgrading macros and maintaining this site is quite a task for me. Want to contribute? Please DONATE

^ Hide these messages to save screen space ^

<<Back to helpful code list

Quick Zoom, return to previous tool after zooming

Decription: Like older versions of Draw. Zooming with zoom tool would revert to previous tool after zooming.

Date: 2011-01-21 Author: John

Code:

Option Explicit

Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer

Sub quickZoom()
    Dim t As Integer
    Dim sngStartTime As Single
    sngStartTime = Timer
    
    t = ActiveTool
    If ActiveTool <> cdrToolZoom Then
            ActiveTool = cdrToolZoom
        End If
    Do While GetAsyncKeyState(vbKeyEscape) = 0 And (Timer - sngStartTime) < 3
        DoEvents
    Loop
    If t = cdrToolZoom Then
        ActiveTool = cdrToolPick
    Else
        ActiveTool = t
    End If
End Sub

Add Comment, Question, Discussion...