如何在Word文档中表格的同一单元格中添加2张excel的jpeg图片？

如何解决如何在Word文档中表格的同一单元格中添加2张excel的jpeg图片？

我正在尝试从Excel工作表中的表（word文档）中添加几张jpeg图片（最多6张），但最后只出现一张。每次添加图片时，它都会覆盖上一张。这是我的代码中与该问题有关的一部分：

' Filling the table
For i = 1 To iNumChem
    ' Column 1
    wdTable.Rows(i + 1).Cells(1).Range.Text = Sheet1.Cells(a + 1 + 2 * i - 2,5).Value
    ' Column 2
    wdTable.Rows(i + 1).Cells(2).Range.Text = Sheet1.Cells(a + 1 + 2 * i - 2,31).Value
    ' Column 3
    For p = 0 To 5
        If Sheet1.Cells(a + 2 * i,5 + 2 * p).Value <> 0 Then
            Sheet3.Shapes(Sheet1.Cells(a + 2 * i,5 + 2 * p).Value).copy
            wdTable.Rows(i + 1).Cells(3).Range.PasteSpecial
        End If
    Next p
    ' Column 4
Next i

我尝试使用ParagraphFormat和Move属性，但没有帮助。通常，我很难将“光标”移动到正确的位置以能够添加一些东西，尤其是在这种情况下，“图片”（不是“形状”）可以并排添加。

欢迎任何想法/评论。

注意：当我混合使用形状和图片这两个词时，请在注释后进行编辑！我正在尝试从Excel拍摄图片并将其添加到表格字词的同一单元格中。

解决方法

粘贴形状时，它不会在单元格中中，它将锚定在其上，但会漂浮在其上方。这与Excel中的形状悬浮在工作表上方并将其隐藏在工作表下方的情况相同。

要在表格中显示形状，您需要将包装类型设置为内联，否则形状会相互叠加。

With wdTable.Rows(i + 1).Cells(3).Range
   .PasteSpecial
   .ShapeRange(1).WrapFormat.Type = wdWrapInline
End With

编辑：

图片以InlineShapes的形式粘贴到Word中。它们不会一个堆叠在另一个之上。如果您尝试在wdTable.Rows(i + 1).Cells(3).Range中粘贴多个，则每个将覆盖最后一个。相反，您需要在循环外声明一个变量，例如wdCellRange as Word.Range，然后在插入图片时使用它，例如

Set wdCellRange = wdTable.Rows(i + 1).Cells(3).Range
With wdCellRange
    .Collapse Direction:= wdCollapseEnd
    .PasteSpecial
End With

您可以尝试：

...Range.Collapse Direction:= wdCollapseEnd