CorelDraw & VBA Back to the Main Menu VBA Introduction Artistic Text Paragraph Text Finding & Changing Text Master Layers Opening Other Applications User Interface Event Programming Storing User Data Error Handling Speeding Up CorelDraw CQL VBA Security Dialog Boxes & Tools

Guide to CorelDraw VBA Dialog Boxes & Tools Advanced users will probably use this section more than intermediate programmers. It may not even be useful but I provide it anyway. It opens and closes Dialog Boxes and Selects Tools without the use of the cursor. 'Place the following line, which is for 64 bit systems, outside a Sub or Function. Declare PtrSafe Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As LongPtr, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long 'Insert the following line inside a Sub or Function where you replace the variable wParam with a number.     SendMessage AppWindow.Handle, 273, wParam, 0 The SendMessage command, depending on the number you use for wParam, will open Dialog Boxes or Select Tools. The table below is not complete. It is based on CorelDraw X6. Newer versions probably have additional numbers. I have probably missed many wParam numbers that I have not documented. You will notice that I have only looked at 1 to 57,600 but it actually goes to 123,141 and probably beyond. If you come across any I have missed send me an email and I will included them. Dialog Box, ToolBar or Tool wParam Select the Smear Tool 204 Select the Virtual Segment Delete Tool 205 Select the Pick Tool 212 Select the Pick Tool 213 Export Dialog Box 21216 Print Dialog Box 21217 Palette Editor Dialog Box 32772 Save changes Dialog box 32773 Tools - Options Dialog box with Toolbox highlighted 32774 Tools - Options Dialog box with Workspace - Customization highlighted 32775 Run Script Dialog box 32776 Open Corel Script Manager Docker 32777 Open CorelDraw Help on the internet. 32779 Open CorelDraw Help on the internet. 32787 Default Color Management Settings 32806 Open Color Palette Manager Docker 32830 Open Palette Dialog box 32833 Open Create a New Document Dialog box 32854 Open Drawing Dialog box 32856 Select the Text Tool 32894 Toggles Toolbox Toolbar 32966 Toggles Property Toolbar 32971 Find Dialog Box 33035 Find Dialog Box 33036 Find Dialog Box 33037 Find Dialog Box 33038 Find Dialog Box 33039 Wrong File Format or Could Not Open Dialog Box 33040 Save 33192 Toggles the Status Bar 33193 Tools - Options Dialog box with General highlighted 33200 Tools - Options Dialog box with Display highlighted 33201 Tools - Options Dialog box with Edit highlighted 33202 Open Find Wizard Dialog box 33203 Open Replace Wizard Dialog box 33204 Open Save Before Closing Dialog box 33210 Open CorelDraw Help on the internet. 33220 Open Add-In Manager Dialog box 33232 Tools - Options Dialog box with Document - Guidelines highlighted 33233 Tools - Options Dialog box with Document - Presets highlighted 33234 Try to open a document on the internet 33244 Try to open a document on the internet 33245 Try to open a document on the internet 33246 Tries to send document on the internet 33254 Tries to send document on the internet 33255 Tries to send document on the internet 33256 Tries to send document on the internet 33257 Tries to send document on the internet 33258 Tries to send document on the internet 33259 Tries to send document on the internet 33260 Tries to send document on the internet 33261 Tries to send document on the internet 33262 Page Sorter View 33332 Tools - Options Dialog box with Workspace - Customization highlighted 33335 Tools - Options Dialog box with Workspace - Snap to Objects highlighted 33350 Tools - Options Dialog box with Workspace - Dynamic Guides highlighted 33352 Quick Start Dialog box 33356 Import Dialog box 33540 Export Dialog box 33541 Print Dialog box 33542 Print Setup Dialog box 33544 Print Preview view 33545 Collect for Output Dialog box 33546 Save Drawing Dialog box 33547 Undo 33548 Cut everthing on page 33549 Delete Selected 33551 Paste 33553 Delete selection 33555 Duplicate Offset Dialg Box 33556 Duplicate Selected 33557 Copy Properties Dialog Box 33558 Select all 33559 Insert Page Dialog box 33567 Tools - Options Dialog box with Document - Page Size highlighted 33570 Tools - Options Dialog box with Document - Grid highlighted 33571 Tools - Options Dialog box with Document - Guidelines highlighted 33572 Group Selected 33580 Ungroup Selected 33581 Combine Selected 33583 Break Apart Selected 33584 Toggles Document Grid 33587 Toggles Show Printable Area 33589 Tools - Options Dialog box with Workspace - Snap to Objects highlighted 33590 Delete selection 33591 Select text 33593 Toggles Show Show Bleed 33598 Clear Transformations 33601 Add Perspective 33602 Place Inside Power Clip 33603 Writing Tools Dialog box 33633 Tools - Options Dialog box with Workspace - Text - QuickCorrect highlighted 33637 Writing Tools Dialog box 33638 Tools - Options Dialog box with Workspace - Text - Spelling highlighted 33646 Tools - Options Dialog box with Workspace - Text - Fonts highlighted 33647 Export for Office 33648 Reduce Font Size to 14pt 33655 Reduce Font Size to 13pt 33656 Reduce Font Size to 11pt 33657 Reduce Font Size to 11pt 33658 Select Text Tool if Not Selected Otherwise Fit Text To Curve 33660 Create Arrow Head Dialog Box 33667 Insert Character Dialog Box 33668 Extract Dialog Box 33669 Merge Back Dialog box 33670 Convert To Bitmap Dialog Box 33672 Writing Tools Dialog Box 33674 Tools - Option Dialog Box Open at Spelling 33676 Tools - Option Dialog Box Open at Text 33678 Statistic Dialog Box 33679 Revert Dialog Box 33708 Lock Object 33710 Unlock Object 33711 Palette Editor's Save Palette Dialog Box 33714 Palette Editor's Save Palette Dialog Box 33715 Tools - Option Dialog Box at Display 33718 Create Roll Over 33720 Toggles Show Page Border 33724 Tools - Option Dialog Box at Background 33727 Close Document but show Save Changes Dialog Box if Required 33733 Overprint Outline 33739 Overprint Fill 33740 More Internal Bookmarks Dialog Box 33769 Edit Internet Properties 33770 Edit Internet Properties 33771 Edit Internet Properties 33772 Edit Internet Properties 33773 Edit Internet Properties 33774 Edit Internet Properties 33775 Edit Internet Properties 33776 Edit Internet Properties 33777 Edit Internet Properties 33778 Edit Internet Properties 33779 More URL's Dialog Box 33780 Edit Internet Properties 33781 Edit Internet Properties 33782 Edit Internet Properties 33783 Edit Internet Properties 33784 Edit Internet Properties 33785 Edit Internet Properties 33786 Edit Internet Properties 33787 Edit Internet Properties 33788 Edit Internet Properties 33789 Edit Internet Properties 33790 Add Rectangle to Edge of page 33808 Export Dialog Box as SWF File 33844 Export Dialog Box as SWF File 33846 Insert page Dialog Box 33883 Insert page Dialog Box 33884 Align And Distribute Dialog Box 33990 CorelDraw Help Topics Dialog Box 34003 Export HTML Dialog Box 34006 Add a New page After the Active page 34010 Add a New Page the Before Active Page 34011 Delete the Active Page 34012 Rename Active page Dialog Box 34015 Convert Outline To Object 34016 Toggles between Portrait & Landscape 34017 Resize Page Dialog Box 34018 Select All 34023 Distribute 34024 Web Image Optimizer Dialog Box 34032 Align 34036 Align 34037 Align 34038 Text Language Dialog Box 34200 Tool - Options Dialog Box At Page Size 34205 Preview of Web Page at HTML 34220 Document Color Settings Dialog Box 34221 Toggles Show Page Border 34232 Align 34235 Loop 34238 Insert New Object Dialog Box 34562 Barcode Wizard Dialog Box 34563 Toggles Rules 34564 Toggles Paper Sorter View 34571 Full Screen Preview 34572 Preview Selected Only 34573 Insert Page Dialog Box 34582 Insert Page Dialog Box 34583 Some type of view 34589 Causes a Crash 34723 Closes Document but asks if you wish to Save 34795 Toggles View Manager Docker 35073 Toggles Object Data Manager Docker 35076 Toggles Insert Symbol Character Docker 35077 Toggles Hint Docker 35079 Toggles Lens Docker 35082 Toggles Bitmap Color Mask Docker 35083 Toggles Color Docker 35084 Toggles Object Manager Docker 35106 Macros Dialog Box 35107 Toggles Tray Docker 35109 Toggles Web Connection Docker 35110 Opens Scrapbook Docker & Tries to Download. 35118 Opens Scrapbook Docker. 35119 Opens Scrapbook Docker. 35120 Toggles Undo Docker 35125 Opens Macro Manager Docker & then CorelDraw Crashes. 35126 Select the Rectangle Tool 37377 Select the Polygon Tool 37478 Select the Star Tool 37486 Select the Star Tool 37487 Select the Spiral Tool 37579 Select the Graph Paper Tool 37680 Select the Ellipse Tool 37781 Select the Transparency Tool 37882 Select the Basic Shapes Tool 37894 Select the Arrow Shapes Tool 37895 Select the Flowchart Shapes Tool 37896 Select the Banner Shapes Tool 37897 Select the Callout Shapes Tool 37898 Select the Blend Tool 38084 Select the Countour Tool 38185 Toggle the Countour Docker 38186 Select the Distort Tool 38286 Select the Artistic Media Tool 38488 Select the Artistic Media Tool 38489 Select the Artistic Media Tool 38490 Select the Artistic Media Tool 38491 Select the Artistic Media Tool 38492 Select the Artistic Media Tool 38496 Select the Artistic Media Tool 38497 Select the Artistic Media Tool 38498 Select the Artistic Media Tool 38499 Select the Artistic Media Tool 38501 Browse for Folder Dialog Box 38514 Toggles the Artistic Media Docker 38546 Select Extrude Tool 38791 Toggles Extrude Docker 38851 Toggles Free Transform 38891 Toggles Free Transform 38892 Toggles Free Transform 38893 Toggles Free Transform 38894 Toggles Free Transform 38895 Select Mesh Fill Tool 39093 Select Zoom Tool 39194 Select PanTool 39195 Pan Left 39201 Pan Right 39202 Pan Down 39203 Pan Up 39204 Fit To Height 39205 Zoom In 39208 Zoom Out 39209 Zoom to 100% 39211 Zoom to Selected 39212 Zoom to Fit 39213 Zoom to Page 39214 Zoom to Width 39216 Select Bezier Tool 39295 Toggle Envelope Docker 39396 Select Envelope Tool 39397 Select Copy Envelope Properties 39410 Save As Preset File Dialog Box 39411 Select Drop Shadow Tool 39497 Select Interactive Fill Tool 39598 Uniform Fill Dialog Box 39600 Fountain Fill Dialog Box 39601 PostScript Texture Dialog Box 39602 Texture Fill Dialog Box 39603 Pattern Fill Dialog Box 39604 Pattern Fill Dialog Box 39605 Outline Pen Dialog Box 39700 Apply a Hairline Width outline 39702 Apply a 0.176mm Outline 39703 Apply a 0.353mm Outline 39704 Apply a 0.706m Outline 39705 Apply a 1.411m Outline 39706 Apply a 2.822m Outline 39707 Apply a 4.233m Outline 39708 Apply a 5.644m Outline 39709 Apply a 7.056m Outline 39710 Apply a 8.467m Outline 39711 Outline Color Dialog Box 39712 Remove the Outline Color 39713 Apply a C0,M0,Y0,K10 Outline Color 39714 Apply a C0,M0,Y0,K20 Outline Color 39715 Apply a C0,M0,Y0,K30 Outline Color 39716 Apply a C0,M0,Y0,K40 Outline Color 39717 Apply a C0,M0,Y0,K50 Outline Color 39718 Apply a C0,M0,Y0,K60 Outline Color 39719 Apply a C0,M0,Y0,K70 Outline Color 39720 Apply a C0,M0,Y0,K80 Outline Color 39721 Apply a C0,M0,Y0,K90 Outline Color 39722 Apply a C0,M0,Y0,K100 Outline Color 39723 Select the Shape Tool 39901 Select the Knife Tool 40002 Select the Eraser Tool 40101 Select the Color Eyedropper Tool 40201 Select Color Eyedropper Tool - Apply Color 40202 Select Attribute Eyedropper Tool 40203 Select Horizontal Or Vertical Dimension Tool 40960 SelectParallel Dimension Tool 40961 Select Angular Dimension Tool 40962 Select Segment Dimension Tool 40963 Select Smart Fill Tool 40974 Select B-Spline Tool 40975 Open Outline Tool Bar 40976 Open Outline Tool Bar 40977 Select 3-Point Callout Tool 40978 Open Outline Tool Bar 40979 Select Straight-Line Connector Tool 41010 Select Right-Angle Connector Tool 41011 Select Right-Angle Round Connector Tool 41012 Open Connector Tool Bar 41013 Select Create Connector Tool (Not actually a std tool) 41014 Select Edit Anchor 41016 Select Crop Tool 41019 Select 2-Point Line Tool 41020 Select Freehand Tool 41021 Select Polyline Tool 41022 Select 3-Point Curve Tool 41023 Select Pen Tool 41024 Select Roughen Brush Tool 41025 Select Smart Drawing Tool 41026 Select Smudge Brush Tool 41027 Create New Symbol Dialog Box 41030 Toggle Symbol Docker 41033 Select Table Tool 41041 Select 3-Point Ellipse 41052 Select 3-Point Rectangle 41053 About CorelDraw Dialog Box 41985 Camera Raw Lab Dialog Box 54722 Brightness/Contrast/Intensity Dialog Box 55118 Color Balance Dialog Box 55119 Gamma Dialog Box 55120 Hue/Saturation/Lightness Dialog Box 55121 Invert 55142 Posterize Dialog Box 55143 Publish to PDF Dialog Box 55360 Toggle the Std Menu Bar 57221 Toggle the Property Bar 57222 Toggle the Toolbox Bar 57223 Toggle the Text Toolbar 57224 Toggle the Zoom Toolbar 57225 Toggle the Internet Toolbar 57226 Toggle the Print Merge Toolbar 57227 Toggle the Transform Toolbar 57228 Toggle the Macros Toolbar 57229 Toggle the Layout Toolbar 57230 Toggle the Object Flyout Toolbar 57231 Toggle Outline Flyout Toolbar 57232 Toggle the Interactive Tool Flyout Toolbar 57233 Toggle the Drop Shadow Toolbar 57234 Toggle the Fill Flyout Toolbar 57235 Toggle the Eyedropper Tool Flyout Toolbar 57236 Toggle the Interactive Fill Flyout Toolbar 57237 Toggle the Perfect Shape Flyout Toolbar 57238 Toggle the Trace Toolbar 57239 Toggle the Centerline Trace Toolbar 57240 Toggle the Outline Trace Toolbar 57241 Toggle the Shape Edit Flyout Toolbar 57242 Toggle the Pick Tool Flyout Toolbar 57243 Toggle the Ellipse Tool Flyout Toolbar 57244 Toggle the Rectangle Tool Flyout Toolbar 57245 Toggle the Zoom Flyout Toolbar 57246 Toggle the Curve Flyout Toolbar 57247 Toggle the Snap Toolbar 57248 Toggle the Smart Tool Flyout Toolbar 57249 Toggle the Crop Tool Flyout Toolbar 57250 Toggle the 3-Point Callout Tool Toolbar 57251 Toggle the Connector Tool Flyout Toolbar 57252 Toggle the Contour Corner Toolbar 57253 Toggle the Contour Colors Toolbar 57254 Toggle the Dimension Tolls Flyout Toolbar 57255 Toggle the Dimension Tolls Flyout Toolbar 57256 Toggle the Area Border Modifier Toolbar 57257 Toggle the Area Border Modifier Toolbar 57258 Toggle the Horizontal Text Alignment Toolbar 57259 Toggle New Toolbar 1 a Trace Toolbar 57260 Toggle New Toolbar 3 a Perspective & Envelope Docker Toolbar 57261 Toggle New Toolbar 4 a Shaping Toolbar 57262 Toggle New Toolbar 5 a Close Path, Convert to Outline Toolbar 57263 Toggle New Toolbar 10 an Empty Toolbar 57264 Toggle New Toolbar 12 a Bitmap Tool Toolbar 57265 Toggle the Menu Bar 57477 Toggle the Staus Bar 57478 ? 57480 Export Workspace Dialog Box 57497 Import WorkSpace - Step 1 of 5 Dialog Box 57498 Tools - Options Dialog box with Customization/Commands highlighted 57521 Tools - Options Dialog box with Customization/Command Bars highlighted 57533 Print Setup Dialog Box 57606 Print Dialog Box 57607 A View Toolbar 57609 Do You Want to Revert To the Last Saved Version Dialog Box 57616 Without Closing Current Document, Open a Recent Document 57617 Without Closing Current Document, Open a Recent Document 57618 Without Closing Current Document, Open a Recent Document 57619 Without Closing Current Document, Open a Recent Document 57620 Without Closing Current Document, Open a Recent Document 57621 Without Closing Current Document, Open a Recent Document 57622 Without Closing Current Document, Open a Recent Document 57623 Without Closing Current Document, Open a Recent Document 57624 Without Closing Current Document, Open a Recent Document 57625 Without Closing Current Document, Open a Recent Document 57626 Without Closing Current Document, Open a Recent Document 57627 Without Closing Current Document, Open a Recent Document 57628 Without Closing Current Document, Open a Recent Document 57629 Without Closing Current Document, Open a Recent Document 57630 Without Closing Current Document, Open a Recent Document 57631 Create a New Window 57648 Cascade Windows 57650 Reset Window Size 57651 Reset Window Size 57652 CorelDraw Help Topics Dialog Box 57670 Save Drawing Dialog Box 123141 2018_09_12