Hello,I find following code in CorelDRAW X3 Help
Sub ToolActive()
If ActiveTool = cdrToolPick Then
ActiveTool = cdrToolEyeDropper
End If
End SubI try to use code to change active tool , but ActiveTool = cdrToolEyeDropper not work - nothing is happen, no error messagesActiveTool is possible to read, but not to write inAny suggestion? Or only upgrade of Corel will help?I think if Help contain this code, he must workGreetings!
Hello,Thank You for this answer and suggestion.ActiveToolStateGuid is not accessible in CorelDRAW X3, X5The code below is working for corelDRAW X5 and not working for CorelDRAW X3I think, but a am not sure, this code must work for all Corel versions above CorelDRAW X5 including.
Sub ActivToolToggle()MsgBox ActiveTool'ActiveTool = 4'MsgBox ActiveTool'activetoolstiteIf ActiveTool = cdrToolPick Then
ActiveTool = cdrToolEyeDropperElseActiveTool = cdrToolPickEnd IfEnd Sub
The question of why in corelDRAW X3 this code does not work remains
Greetings!
Hopefully this should work
Sub ActivToolToggle()If ActiveTool = 1 Then ActiveTool = 119Else ActiveTool = 1End IfEnd Sub