Excel 365中通过VBA触发Insert->Shapes->Freeform: Shape功能的实现思路

之前方法失效的核心原因 #

• 直接调用Shapes.BuildFreeform是底层创建形状的API，必须预先传入所有节点坐标，完全不支持交互手绘的状态。
• 用SendKeys按回车/空格选中按钮会生成乱线，是因为发送按键时按钮没有获得正确的Ribbon焦点，回车被Excel识别为工作表区域的点击，触发了默认形状生成，而不是激活手绘模式。

最优方案：调用内置命令直接触发手绘模式 #

使用Excel 365提供的Application.CommandBars.ExecuteMso方法，完全等价于鼠标点击Ribbon上的原生按钮，无坐标要求，调用后自动进入手绘等待状态：

Sub 触发自由手绘形状()
    ' 对应Insert->Shapes->Freeform: Shape（钢笔样式，可编辑节点）
    Application.CommandBars.ExecuteMso "Freeform"
    
    ' 如果需要随手涂鸦样式的自由线，替换为下面的ID即可
    ' Application.CommandBars.ExecuteMso "Scribble"
End Sub

调用后效果和手动点击原生按钮完全一致：Excel会进入手绘等待状态，用户可以自由拖动鼠标绘制，完成后按ESC退出即可生成正式形状，不需要传入任何节点参数。 #

长期入口方案：自定义Ribbon绑定原生命令 #

如果要给工具做固定入口，不需要编写VBA触发逻辑，直接在自定义Ribbon的按钮配置中，把按钮的idMso属性设为Freeform即可。这种方式完全复用Excel原生按钮的触发逻辑，稳定性比VBA调用更高，还能自动继承原生按钮的图标、悬停提示文字。 #

备用方案：修复逻辑的SendKeys触发 #

如果企业环境限制了ExecuteMso的调用权限，可以调整SendKeys的触发顺序，先完整激活Ribbon控件焦点再触发按钮，避免乱线问题：

Sub 备用_触发自由手绘()
    ' 激活顶部Insert选项卡（Alt+N是Insert的默认快捷键）
    SendKeys "%n", True
    ' 等待Ribbon加载完成，避免动画导致焦点丢失
    Application.Wait Now + TimeValue("00:00:01")
    ' 展开Shapes下拉面板（Insert选项卡下形状按钮的默认快捷键是S+H）
    SendKeys "s h", True
    Application.Wait Now + TimeValue("00:00:01")
    ' 按方向键定位到Freeform按钮（根据默认Ribbon布局，按4次右键即可选中）
    SendKeys "{Right 4}", True
    ' 触发按钮，进入手绘模式
    SendKeys "{Enter}", True
End Sub

注意：这个方案仅在默认Ribbon布局下生效，如果用户自定义过Ribbon或者修改了快捷键，会出现触发失效的问题，仅做备用。

常见问题说明 #

• 为什么调用代码后VBA好像停止运行了？

  这是正常的交互逻辑：进入手绘等待状态后，VBA会暂停运行，直到用户完成绘制、按下ESC退出绘制模式后，才会继续执行后续代码。

• 绘制完成后怎么获取刚生成的形状对象？

  等用户退出绘制模式后，直接读取ActiveSheet.Shapes(ActiveSheet.Shapes.Count)即可获得最新创建的自由形状。

内容的提问来源于stack exchange，提问作者Sean Marsell