Excel 365 VBA技术问询：用户窗体选中图片无法插入表格

问题分析 #

你当前的代码仅将图片加载到用户窗体的Image控件中，但未保存图片的原始路径，导致后续无法将图片插入到工作表。另外，Shapes.AddPicture的语法使用错误，需要正确调用方法并指定参数。

修复步骤 #

1. 添加模块级变量存储图片路径 #

在用户窗体的代码顶部（所有事件之外）添加变量，用于保存选中的图片路径：

Private imgPath As String ' 存储选中的图片文件路径

2. 修改图片选择按钮代码 #

更新CommandButton1_Click，将选中的图片路径保存到变量中：

Private Sub CommandButton1_Click()
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .ButtonName = "Submit"
        .Title = "Select an image file"
        .Filters.Add "Image", "*.gif; *.jpg; *.jpeg", 1
        If .Show = -1 Then
            ' 保存图片路径到模块变量
            imgPath = .SelectedItems(1)
            ' 显示预览图片
            Me.Image1.PictureSizeMode = fmPictureSizeModeZoom
            Me.Image1.Picture = LoadPicture(imgPath)
        Else
            ' 用户取消选择，清空路径
            imgPath = ""
        End If
    End With
End Sub

3. 修改提交按钮代码，插入图片 #

更新CommandButton2_Click，添加图片插入逻辑，将图片嵌入到第8列的对应单元格：

Private Sub CommandButton2_Click()
    Dim emptyRow As Long
    Dim targetCell As Range
    Dim insertedPic As Shape
    
    ' 定位到目标工作表
    With Worksheets("PartDB")
        ' 确定空行（注意：如果A列有空白单元格，此方法可能不准确，建议用ListObject结构化表格）
        emptyRow = WorksheetFunction.CountA(.Range("A:A")) + 1
        
        ' 写入文本数据
        .Cells(emptyRow, 1).Value = PartNumber.Value
        .Cells(emptyRow, 2).Value = Description.Value
        .Cells(emptyRow, 3).Value = MatBox1.Value
        .Cells(emptyRow, 4).Value = ThickBox.Value
        .Cells(emptyRow, 5).Value = FinishBox.Value
        .Cells(emptyRow, 6).Value = ProcessBox1.Value
        .Cells(emptyRow, 7).Value = KitNumber.Value
        
        ' 如果有选中的图片，插入到第8列单元格
        If imgPath <> "" Then
            Set targetCell = .Cells(emptyRow, 8)
            ' 插入图片，设置为嵌入模式，调整大小适配单元格
            Set insertedPic = .Shapes.AddPicture( _
                Filename:=imgPath, _
                LinkToFile:=msoFalse, _
                SaveWithDocument:=msoTrue, _
                Left:=targetCell.Left, _
                Top:=targetCell.Top, _
                Width:=targetCell.Width, _
                Height:=targetCell.Height)
            ' 设置图片随单元格移动和调整大小
            insertedPic.Placement = xlMoveAndSize
        End If
    End With
    
    Unload Me
End Sub

关键说明 #

• imgPath变量：用于在两个按钮事件之间传递图片路径，因为用户窗体的Image控件无法直接将图片导出到工作表，必须通过原始文件路径插入。
• Shapes.AddPicture参数：
  • LinkToFile:=msoFalse：将图片嵌入到工作表，而非链接到外部文件。
  • SaveWithDocument:=msoTrue：确保图片随工作簿一起保存。
  • Left/Top/Width/Height：将图片定位到目标单元格的位置，并适配单元格大小。
  • xlMoveAndSize：设置图片随单元格移动和调整大小，避免位置错乱。

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