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!
Hi bhbp.bg2,
cdrToolEyeDropper is not listed in cdrTools enumeration so you cannot activate as you have done above. Not sure if it is in the version you are working on.
You need to use the GUID for the tool as below:
ActiveToolStateGuid = "c109a053-50ab-4943-8edc-d374ec153e7e" 'Activate Color EyeDropper Tool
Please try and let me know if that works for you.
Suku
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