按钮激活自由变换工具

Question

我希望能够在excel工作表上按下一个按钮，将鼠标更改为自由变换工具，然后允许我在Excel工作表上绘图。那可能吗？ 我举一个例子来附加scribble工具示例而不是自由变换

Sub cButton_Click() Application.CommandBars("Drawing").Controls("AutoShapes").Controls("Lines").Controls("Scribble").Execute End Sub