求ActiveX TextBox返回Normal模式的VBA等效代码（跨Office软件）

嘿，这个问题我之前折腾过好一阵子！确实，DoVerb方法用来触发编辑模式特别顺手，但官方文档里关于退出Normal模式的直接方法提得很少，给你几个亲测有效的方案：

• 模拟Esc键（快速实现）
  既然手动按Esc能退出编辑模式，那在VBA里可以直接用SendKeys模拟这个操作，代码很简单：

  SendKeys "{ESC}"
  

  不过要注意，SendKeys的效果依赖当前焦点位置——如果执行代码时焦点不在目标TextBox上，可能没反应。好在进入编辑模式后焦点默认就在TextBox里，所以大多数情况下这个方法能直接生效。

• 转移焦点到其他对象（更稳定）
  这是我最推荐的方法，完全不受键盘状态影响。原理是把焦点从ActiveX TextBox转移到幻灯片/工作表的其他元素上，TextBox会自动退出编辑模式：
  在PowerPoint里：

  ' 转移焦点到另一个形状
  ActivePresentation.Slides(1).Shapes("YourOtherShapeName").Select
  ' 或者直接选中幻灯片本身
  ActivePresentation.Slides(1).Select
  

  在Excel里：

  ' 转移焦点到单元格
  Sheet1.Range("A1").Select
  

• 尝试DoVerb的其他动词参数
  有些ActiveX控件的DoVerb方法支持多个动词指令，你可以先查看当前TextBox支持的所有动词，再测试对应退出编辑的选项：

  Dim verbObj As Verb
  For Each verbObj In ActivePresentation.Slides(1).Shapes("TextBox21").OLEFormat.Verbs
      Debug.Print verbObj.Index & ": " & verbObj.Name
  Next verbObj
  

  运行这段代码后，打开VBA的立即窗口（Ctrl+G），就能看到所有可用动词的索引和名称。比如有些控件的DoVerb(1)或者DoVerb(2)可能对应“退出编辑”，你可以逐个测试试试。

这些方法在PowerPoint和Excel里都适用，根据你的场景选最顺手的就行~

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