Excel 64位版本中Toolbar控件图标不显示的解决方法

核心原因 #

MSCOMCTL.OCX是32位专属ActiveX控件，64位Excel的VBA环境对其兼容性有限，即便注册到SysWOW64，仍可能因架构不匹配导致图标渲染失败。以下是可落地的解决办法：

1. 确保MSCOMCTL.OCX正确注册 #

64位系统下必须用32位版regsvr32注册，步骤：

• 以管理员身份打开命令提示符
• 执行命令：

  C:\Windows\SysWOW64\regsvr32.exe C:\Windows\SysWOW64\MSCOMCTL.OCX
  

• 注册成功后重启Excel，在「开发工具>控件>更多控件」中确认Microsoft Toolbar Control 6.0 (SP6)和Microsoft ImageList Control 6.0 (SP6)可正常选中

2. 替换为64位兼容的控件方案（推荐） #

放弃MSCOMCTL.OCX，改用Excel原生的CommandBar功能区控件，完全兼容32/64位环境：

• 带图标按钮的示例代码：

  Sub CreateCustomToolbar()
      Dim cmdBar As CommandBar
      Dim cmdBtn As CommandBarButton
      
      ' 清理旧工具栏
      On Error Resume Next
      Application.CommandBars("MyToolbar").Delete
      On Error GoTo 0
      
      ' 创建新工具栏
      Set cmdBar = Application.CommandBars.Add(Name:="MyToolbar", Position:=msoBarTop, Temporary:=True)
      
      ' 添加带自定义图标的按钮
      Set cmdBtn = cmdBar.Controls.Add(Type:=msoControlButton)
      With cmdBtn
          .Caption = "操作按钮"
          ' 方式1：用内置图标ID（可通过FaceId浏览器查询对应图标）
          .FaceId = 59
          ' 方式2：用工作表中导入的自定义图片
          '.Picture = Sheets("图标库").Shapes("自定义图标").Picture
          .Style = msoButtonIconAndCaption
          .OnAction = "Btn_Click" ' 绑定宏
      End With
      
      cmdBar.Visible = True
  End Sub
  
  Sub Btn_Click()
      MsgBox "按钮触发成功"
  End Sub
  

3. 修复现有Userform的控件关联 #

若坚持使用原Toolbar控件，尝试以下调整：

• 打开VBA编辑器，删除原Toolbar和Imagelist控件，重新插入并重新关联图标
• 若通过代码绑定图标，修改为64位兼容写法：

  ' 原32位绑定代码
  ' Toolbar1.ImageList = ImageList1
  ' 64位兼容修改
  Toolbar1.ImageList = ImageList1.Object
  

4. 检查Excel信任中心设置 #

• 打开「文件>选项>信任中心>信任中心设置>宏设置」，临时勾选「启用所有宏」（测试用，后续可调整为安全选项）
• 切换到「ActiveX设置」，选择「启用所有控件而不提示」，避免控件被拦截

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