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
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!
Pan tool is 67cdrTools enumeration - Developer Area - CorelDRAW Community