Pick and Freehand Toggle
Sub BhBp_TOOL_TOGGLE()'MsgBox Application.ActiveTool'Application.ActiveTool = 2 'WORK SHAPE TOOL'Application.ActiveTool = 3 'WORK RECTANGLE TOOL'Application.ActiveTool = 4 'WORK ELLIPSE'Application.ActiveTool = 5If Application.ActiveTool = 1 ThenApplication.ActiveTool = 5ElseApplication.ActiveTool = 1End IfEnd Sub
not working brother
brother i do not know about scriptting. just doubted.... why shape, rectangle and ellipse tools are used in the script. i want pick tool to freehand tool ................ freehand tool to pick tool only
Hello,Try again, please this code
The first sended code has error in first rowI write Sub BhBp_TOOL_TOGGLEMust be Sub BhBp_TOOL_TOGGLE()
Greetings!
If not work again /CorelDRAW X5 tested/try this one:1. Select Pick toolthen run this code and see if return value is 1Sub check_tool()msgbox Application.ActiveToolend subThen select FreeHand Tool and run check_tool code again to see what return value for selected tool is.Write here the 2 returned values - for Pick Tool and for Freehand ToolGreetings!
Not working brother
Brother its a great help if i have your whatsapp number
+91 7675926841 is mine
try this one:1. Select Pick toolthen run this code and see if return value is 1Sub check_tool()msgbox Application.ActiveToolEnd sub2. Then select FreeHand Tool and run check_tool code again to see what return value for selected tool is.Write here the 2 returned values - for Pick Tool and for Freehand ToolGreetings!
brother. the macro itself chooses the pick to freehand ..... and .... freehand to pick...
if i try as you said, then its nothing but... choosing them separately. moreover i really could not understand
since i truly do not know nothing about macros.
so far i know sub... end... inbetween is the script ... copy and paste them into the script editor and run. this is what i know brother
brother please provide the macro. i could not understand and it is not working
Not working, please help