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

cool vba macros for corel show cart gdg corel draw macros checkout corel macros
VBA Corel Macro Help
john's macros
thanks for stopping by gdg macros

Helpful VBA Code
Please order a commercial macro ONLY if you have at least intermediate professional experience with CorelDraw and macros, no beginners PLEASE. Try FREE macros here and see my help pages to learn. Clients agree to all terms and conditions here when buying a commercial macro and using the available free macros. No refunds, no exchanges.
Note: Macros do not function in the Home & Student Edition or Pirated Versions of CorelDraw!
X8 Macros DO NOT work in v.2018
X7 Macros DO NOT work in v.2017
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.
CorelDraw X8 and some v.2017 macros available as well as older versions. Not all macros are guaranteed to be continued due to compatibility reasons or other. See new version policy here. Contact me and let me know which macro you need for v.2017. All macros without a request might be discontinued.
^ 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

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
    If t = cdrToolZoom Then
        ActiveTool = cdrToolPick
        ActiveTool = t
    End If
End Sub

corel macros boost workflow
*Searches the FREE and Commercial Macros




Need a Custom Macro?
Available for a limited time only.

CorelDraw macros for version 2018

CorelDraw macros for version 2017

macros for coreldraw x8

macros for coreldraw x7

macros for corel draw x6

macros for corel draw x6


find it on yahoo


find it on google