Я ищу, чтобы вставить несколько объектов в Excel в Excel через VBA

Question

Есть ли способ, которым вы можете установить этот код, чтобы встроенное изображение помещалось в отдельную ячейку, а не поверх друг друга?

Например, я запускаю этот макрос, чтобы вставить 3 PDF-файла. Я хочу, чтобы эти 3 PDF-файла помещались в ячейки A2, A3, A4.

Причина, по которой я это делаю, заключается в том, что я собираюсь использовать эту электронную таблицу при слиянии почты для отправки отдельных файлов PDF на разные адреса электронной почты.

Sub AddOlEObject()

Dim mainWorkBook As Workbook

Установить mainWorkBook = ActiveWorkbook

Folderpath = "C:\Users\jyousef\Documents\SL\October15"

Установите fso = CreateObject("Сценарии.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.Сохранить

End Sub

Answer 1

Объекты на самом деле не помещаются в ячейки, поэтому я не уверен, как это будет работать с слиянием почты, но для размещения объектов в другой точке просто выберите разные ячейки (объекты помещаются в активную ячейку, если вы не укажете верхнюю и левую ячейки ).

Добавить что-то вроде

Range("A" & Counter).select

после

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