Office 2013 64位Windows7下Excel VBA用户窗体无法插入.ico文件的原因及解决方法

这个问题我之前帮朋友排查过，确实是Office版本+系统环境的兼容性坑：

Office 2013的UserForm Image控件底层依赖旧版本的GDI+渲染引擎，在64位Windows 7环境下，对ICO格式的解析逻辑存在缺陷——尤其是处理包含多尺寸、多色深的ICO文件时，很容易触发加载失败的情况。而Office 2016及后续版本更新了控件的底层实现，同时Windows 10自带的GDI+版本也修复了这类兼容性问题，所以在新环境下能正常加载。

针对这个问题，有三个实用的解决方案，按操作复杂度从低到高排序：

1. 转换ICO为兼容格式（最简单） #

直接把ICO文件转换成BMP、PNG这类Office 2013 Image控件原生支持的格式：

• 用系统自带的「画图」工具打开ICO文件，另存为PNG/BMP格式；
• 然后在UserForm设计界面，直接给Image控件插入转换后的图片即可。

这个方法适合不需要动态加载ICO的场景，操作零代码，省心省力。

2. 用Windows API手动加载ICO（适合动态加载需求） #

如果必须使用ICO文件（比如需要保留图标透明效果、动态切换图标），可以通过Windows API绕过原生控件的限制，手动加载ICO并赋值给Image控件。

以下是64位VBA兼容的完整代码：

#If VBA7 And Win64 Then
    Declare PtrSafe Function LoadImage Lib "user32" Alias "LoadImageA" ( _
        ByVal hInst As LongPtr, _
        ByVal lpsz As String, _
        ByVal uType As Long, _
        ByVal cxDesired As Long, _
        ByVal cyDesired As Long, _
        ByVal fuLoad As Long) As LongPtr
        
    Declare PtrSafe Function DestroyIcon Lib "user32" ( _
        ByVal hIcon As LongPtr) As Long
        
    Declare PtrSafe Function OleCreatePictureIndirect Lib "olepro32.dll" ( _
        ByRef PicDesc As PICTDESC, _
        ByRef riid As GUID, _
        ByVal fPictureOwnsHandle As Long, _
        ByRef ppvObj As IPicture) As Long
#End If

Type GUID
    Data1 As Long
    Data2 As Integer
    Data3 As Integer
    Data4(0 To 7) As Byte
End Type

Type PICTDESC
    Size As Long
    Type As Long
    hPic As LongPtr
    hPal As LongPtr
End Type

Const IMAGE_ICON = 1
Const LR_LOADFROMFILE = &H10
Const LR_DEFAULTSIZE = &H40

Function LoadIconToPicture(sPath As String) As IPicture
    Dim hIcon As LongPtr
    Dim uPicInfo As PICTDESC
    Dim IID_IDispatch As GUID
    Dim IPic As IPicture
    
    ' 从指定路径加载图标
    hIcon = LoadImage(0, sPath, IMAGE_ICON, 0, 0, LR_LOADFROMFILE Or LR_DEFAULTSIZE)
    
    If hIcon = 0 Then Exit Function
    
    ' 初始化IPicture接口的GUID
    With IID_IDispatch
        .Data1 = &H7BF80980
        .Data2 = &HBF32
        .Data3 = &H101A
        .Data4(0) = &H8B
        .Data4(1) = &HBB
        .Data4(2) = &H0
        .Data4(3) = &HAA
        .Data4(4) = &H0
        .Data4(5) = &H30
        .Data4(6) = &HC
        .Data4(7) = &HAB
    End With
    
    ' 填充图片描述结构体
    With uPicInfo
        .Size = Len(uPicInfo)
        .Type = vbPicTypeIcon
        .hPic = hIcon
        .hPal = 0
    End With
    
    ' 将图标句柄转换为IPicture对象
    OleCreatePictureIndirect uPicInfo, IID_IDispatch, True, IPic
    
    ' 返回转换后的图片对象
    Set LoadIconToPicture = IPic
    
    ' 清理资源
    DestroyIcon hIcon
End Function

使用方法： #

在UserForm的初始化事件中调用这个函数：

Private Sub UserForm_Initialize()
    ' 替换成你的ICO文件路径
    Set Me.Image1.Picture = LoadIconToPicture("C:\YourIconPath\YourIcon.ico")
End Sub

3. 将ICO嵌入工程资源（适合分发场景） #

如果你的VBA工程需要分发给其他用户，不想依赖外部ICO文件，可以把ICO作为资源嵌入工程：

1. 用资源编辑器（比如VB6的Resource Editor，或者第三方VBA资源工具）把ICO添加到工程资源中；
2. 用API从资源中加载图标，逻辑和方法2类似，只是把LoadImage的参数改成从资源加载的标识。

这个方法相对复杂，但能避免外部文件依赖，适合专业的工程分发。

内容的提问来源于stack exchange，提问作者Pham Minh Hoang