Pick and Freehand Toggle
Spacebar.
i have assigned sapcebar to another that is zoom
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
brother i do not know about scriptting. just doubted.... why shape, rectangle and ellipse tools are used in the script. i want pick tool to freehand tool ................ freehand tool to pick tool only