CODE to QUERY for ACTIVE MEASUREMENT TOOL . . .
This code will activate the LINE TOOL
'ACTIVATE THE LINE TOOL With Measure.Measurements.ToolsCommands.Line(Nothing) .Tool = eMMTool.Line .Interactive = False .Run(ThisApplication.ActiveDocument) End With
This code will activate the NO TOOL
'ACTIVATE THE NO TOOL TO DEACTIVATE ALL OTHER TOOLS With Measure.Measurements.ToolsCommands.Select(Nothing) .Tool = eMMTool.NoTool .Interactive = False .Run(ThisApplication.ActiveImage) End With
This code will activate the ANGLE TOOL
'ACTIVATE THE ANGLE TOOL With Measure.Measurements.ToolsCommands.Angle(Nothing) .Tool = eMMTool.Angle .Interactive = False .Run(ThisApplication.ActiveDocument) End With
I have poked around in the PROPERTIES and METHODS of
and have not found something to give me info on which TOOL is active.
Is there CODE that will determine which TOOL is active?