我想通过VBA在excel中插入多个逐项列出的对象

有没有办法可以设置这个代码让嵌入的图像进入一个单独的单元而不是相互叠加？

例如，我运行此宏来插入3个PDF。我想要这些3个PDF进入单元格A2，A3，A4。

我这样做的原因是因为我将在邮件合并中使用此电子表格将各个PDF发送到不同的电子邮件地址。

Sub AddOlEObject（）

昏暗的mainWorkBook作为工作簿

设置mainWorkBook = ActiveWorkbook

Folderpath =“C：\ Users \ jyousef \ Documents \ SL \ October15”

设置fso = CreateObject（“Scripting.FileSystemObject”）

NoOfFiles = fso.GetFolder(Folderpath).Files.Count

Set listfiles = fso.GetFolder(Folderpath).Files

For Each fls In listfiles

    Counter = Counter + 1

    Range("A" & Counter).Value = fls.Name

    strCompFilePath = Folderpath & "\" & Trim(fls.Name)

    If strCompFilePath <> "" Then

        ActiveSheet.OLEObjects.Add(Filename:=strCompFilePath, Link:=False, DisplayAsIcon:=True, IconIndex:=1, IconLabel:=strCompFilePath).Select

            'Sheets("Object").Activate

        'Sheets("Object").Range("B" & ((Counter - 1) * 3) + 1).Select

    End If

Next

mainWorkBook.Save

结束子

对象实际上并没有放在单元格中，所以我不确定如何使用邮件合并，但是将对象放在不同的位置只需选择不同的单元格（如果不指定顶部和左侧，对象将放置在活动单元格中）。

添加类似的东西

Range("A" & Counter).select

后

Range("A" & Counter).Value = fls.Name