Application.ActiveTool property - Developer Area

API Documentation > CorelDRAW > 2025-v26 > Application > IVGApplication

Application.ActiveTool property

Gets or sets the active tool

Syntax:

Property Get ActiveTool() As cdrTools
Property Let ActiveTool(ByVal Value As cdrTools)

Remarks:

The ActiveTool property returns or specifies the active tool in CorelDRAW.

Examples:

The following VBA example changes the active tool from the Pick tool to the Eye Dropper tool.

Sub ToolActive()
If ActiveTool = cdrToolPick Then
  ActiveTool = cdrToolEyeDropper
End If 
End Sub