如何用Excel VBA将单元格嵌入图片导入窗体Image对象（免存文件优先）

核心问题分析 #

你用InsertPictureInCell插入的是单元格内嵌的Picture对象（属于Range.Pictures集合），而非浮动的Shape对象，所以之前调用Shapes.AddPicture的方法是新增图片，不是操作已有的单元格内图片，自然无法满足需求。

解决方案一：通过剪贴板中转（简单直接） #

先定位到目标单元格的Picture对象，复制到剪贴板后删除单元格内的图片，再将剪贴板内容粘贴到窗体的Image控件：

Sub MovePicToFormViaClipboard()
    Dim targetCell As Range
    Dim pic As Picture
    Dim userForm As UserForm1 ' 替换成你的窗体名称
    
    ' 定位目标单元格（示例为B22）
    Set targetCell = ThisWorkbook.Sheets("你的工作表名称").Range("B22")
    
    ' 获取单元格内的图片（假设仅存在一张）
    If targetCell.Pictures.Count > 0 Then
        Set pic = targetCell.Pictures(1)
        
        ' 复制图片到剪贴板
        pic.Copy
        
        ' 删除单元格内的图片
        pic.Delete
        
        ' 加载窗体并赋值图片
        Set userForm = New UserForm1
        userForm.Image1.Picture = Clipboard.GetData(vbCFBitmap)
        userForm.Show
    Else
        MsgBox "目标单元格无内嵌图片"
    End If
End Sub

解决方案二：直接导入窗体Image（无需剪贴板，推荐） #

通过将Excel的Picture对象转换为标准StdPicture，直接赋值给窗体Image控件的Picture属性，全程无需依赖剪贴板：

' 需先添加对"Microsoft Forms 2.0 Object Library"的引用
Sub MovePicToFormDirectly()
    Dim targetCell As Range
    Dim pic As Picture
    Dim userForm As UserForm1
    Dim stdPic As StdPicture
    
    Set targetCell = ThisWorkbook.Sheets("你的工作表名称").Range("B22")
    
    If targetCell.Pictures.Count > 0 Then
        Set pic = targetCell.Pictures(1)
        
        ' 转换为标准图片对象
        Set stdPic = pic.Picture
        
        ' 删除单元格内的图片
        pic.Delete
        
        ' 赋值给窗体Image控件
        Set userForm = New UserForm1
        Set userForm.Image1.Picture = stdPic
        userForm.Show
    Else
        MsgBox "目标单元格无内嵌图片"
    End If
End Sub

关键注意事项 #

• 若单元格内有多张图片，需通过Pictures集合的索引或名称精准定位目标图片。
• 解决方案二中，若不想添加库引用，可使用后期绑定方式调用StdPicture，但上述方法已足够简洁。
• 建议将窗体Image控件的AutoSize属性设为True，避免图片被拉伸变形。

内容的提问来源于stack exchange，提问作者Oscar Nogales