如何将Excel屏幕截图功能绑定到VBA用户窗体的命令按钮？

错误原因 #

• 运行时错误91是因为Application.CommandBars.FindControl(ID:=18674)没有找到对应控件，返回了空对象Nothing，直接调用方法就会触发该报错。ID为18674的屏幕截图控件默认仅挂载在「插入」选项卡的命令组中，当该选项卡未激活、或是Excel版本的命令栏映射调整时，FindControl就无法匹配到对应对象。
• 你的代码中存在拼写错误：方法名应为Execute而非excute，拼写错误也会导致运行报错。
• SendKeys方案无效是因为该方法对窗口焦点要求极高，自定义用户窗体激活时，默认焦点落在窗体上，Excel主窗口无法接收到模拟的按键输入，且SendKeys本身兼容性差，不建议使用。

可行解决方法 #

方案1：直接调用官方功能区命令（最稳定） #

使用Excel官方提供的ExecuteMso方法直接触发屏幕截图功能，不需要匹配控件ID，兼容性远高于找命令栏控件的方案，代码如下：

' 一行代码即可触发屏幕截图功能
Application.CommandBars.ExecuteMso "ScreenClipping"

方案2：兼容原有Control ID逻辑的修复版 #

如果你需要保留原有查找控件的逻辑，可以增加空对象判断，同时兜底使用ExecuteMso避免报错：

Dim screenshotCtl As CommandBarControl
' 查找指定ID的控件
Set screenshotCtl = Application.CommandBars.FindControl(ID:=18674)
' 先判断对象是否存在再调用方法
If Not screenshotCtl Is Nothing Then
    screenshotCtl.Execute
Else
    ' 找不到控件时兜底调用官方命令
    Application.CommandBars.ExecuteMso "ScreenClipping"
End If

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