使用Custom UI Editor制作的Excel功能区按钮报错：无法运行宏GetDES

一、带IRibbonControl参数的宏无法运行的解决步骤 #

• 检查Custom UI XML的按钮定义：确保按钮的onAction属性值与宏名称完全一致（包括大小写），例如XML代码应为<button id="btnGetDES" label="GetDES" onAction="GetDES"/>，不能有拼写错误。
• 确认宏的存放位置：宏必须放在标准模块中（右键VBA项目→插入→模块），不能放在工作表或工作簿模块里，否则功能区无法识别。
• 确保宏的可见性：宏不能加Private关键字，必须是公共声明：Sub GetDES(control as IRibbonControl)，私有宏无法被功能区按钮调用。
• 检查宏安全设置：确认Excel的宏安全级别未阻止运行，可将文件添加到信任位置，或临时设置为“启用所有宏”（仅信任文件时操作）。

二、文件选择对话框弹出两次的解决方法 #

根据你调试定位的Set img = ActiveSheet.Pictures.Insert(.SelectedItems(1))语句，问题大概率是该方法触发了工作表事件（如SelectionChange、Activate），或方法本身的默认行为导致重复调用对话框，可按以下步骤处理：

1. 禁用事件避免触发重复执行
   在宏的开头禁用Excel事件，操作完成后恢复，同时添加错误处理确保事件不会一直禁用：

   Sub GetDES()
       Dim fd As FileDialog
       Dim img As Object
       
       Application.EnableEvents = False ' 禁用事件
       On Error GoTo Cleanup ' 错误处理
       
       Set fd = Application.FileDialog(msoFileDialogFilePicker)
       With fd
           .AllowMultiSelect = False
           .Filters.Add "图片文件", "*.png;*.jpg;*.jpeg"
           If .Show = -1 Then ' 仅当用户选择文件后执行
               ' 替换Insert方法为更可控的AddPicture
               Set img = ActiveSheet.Shapes.AddPicture( _
                   Filename:=.SelectedItems(1), _
                   LinkToFile:=msoFalse, _
                   SaveWithDocument:=msoTrue, _
                   Left:=ActiveCell.Left, Top:=ActiveCell.Top, Width:=100, Height:=100)
           End If
       End With
       
   Cleanup:
       Application.EnableEvents = True ' 恢复事件
       Set fd = Nothing
       Set img = Nothing
   End Sub
   

2. 替换Pictures.Insert为Shapes.AddPicture
Pictures.Insert方法会触发Excel的默认插入行为（可能包括额外的确认或事件触发），而Shapes.AddPicture是更稳定的程序化插入方式，能避免不必要的弹窗或事件触发。

3. 添加对话框返回值判断
   确保仅在用户点击“确定”（返回值为-1）时才执行后续代码，避免用户取消对话框后仍执行插入逻辑导致的异常。

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