求助解决Excel VBA运行时错误80004005：InsertPictureInCell方法失败

问题现象 #

运行VBA代码调用Range.InsertPictureInCell时，首次触发错误：

Run-Time error '-2147467259 (80004005)': Method 'InsertPictureInCell' of object 'Range' failed

但手动通过功能区「插入>图片>置于单元格内>此设备」插入任意一张图片后，再运行相同代码即可正常工作。

核心原因 #

InsertPictureInCell是Excel较新的功能，首次调用时可能依赖内部未初始化的组件或状态，手动插入操作会完成该初始化流程，因此后续调用不再报错。

解决思路 #

1. 提前触发功能初始化 #

在首次调用InsertPictureInCell前，先执行一段临时代码触发功能初始化，之后再执行实际插入逻辑：

Sub InitializePictureInCell()
    Dim tempCell As Range
    Set tempCell = ThisWorkbook.ActiveSheet.Range("XFD1048576") ' 选一个不影响的边缘单元格
    
    ' 临时尝试插入图片（路径可填任意有效图片，或用错误捕获忽略失败）
    On Error Resume Next
    tempCell.InsertPictureInCell "C:\temp\dummy.jpg"
    On Error GoTo 0
    
    ' 删除临时插入的图片（如果成功插入）
    Dim shp As Shape
    For Each shp In tempCell.Worksheet.Shapes
        If shp.TopLeftCell.Address = tempCell.Address And shp.Type = msoPicture Then
            shp.Delete
            Exit For
        End If
    Next shp
End Sub

' 修改你的测试代码，先初始化再调用
Sub Test()
    InitializePictureInCell
    Module1.CellImage_Load "B16", "C:\Path To Image\Image.jpg"
End Sub

2. 替代方案：手动实现单元格绑定图片 #

如果初始化方法不稳定，可直接用原生AddPicture方法实现「图片置于单元格内」的效果，完全规避InsertPictureInCell的初始化问题：

Sub CellImage_Load(ImgCell As String, ImgPath As String)
    Dim targetCell As Range
    Set targetCell = Range(ImgCell)
    Dim imgShp As Shape
    
    ' 清理目标单元格内已有图片
    For Each shp In targetCell.Worksheet.Shapes
        If shp.TopLeftCell.Address = targetCell.Address And shp.Type = msoPicture Then
            shp.Delete
            Exit For
        End If
    Next shp
    
    ' 插入图片并绑定到单元格
    Set imgShp = targetCell.Worksheet.Shapes.AddPicture( _
        Filename:=ImgPath, _
        LinkToFile:=msoFalse, _
        SaveWithDocument:=msoTrue, _
        Left:=targetCell.Left, _
        Top:=targetCell.Top, _
        Width:=targetCell.Width, _
        Height:=targetCell.Height)
    
    ' 设置图片随单元格移动、调整大小
    imgShp.Placement = xlMoveAndSize
End Sub

3. 基础检查 #

• 确认Excel版本：InsertPictureInCell仅在Excel 365等较新版本中支持，旧版本无此方法
• 检查宏信任设置：确保VBA有文件系统访问权限（手动插入后能运行则此问题概率极低）

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