Estou procurando inserir vários objetos discriminados no Excel por meio de um VBA

Question

Existe uma maneira de definir esse código para que a imagem incorporada entre em uma célula separada, em vez de uma em cima da outra?

Por exemplo, eu executo essa macro para inserir 3 PDFs. Eu quero que esses 3 PDFs entrem nas células A2, A3, A4.

O motivo pelo qual estou fazendo isso é porque vou usar essa planilha em uma mala direta para enviar os PDFs individuais para diferentes endereços de e-mail.

Sub AddOlEObject ()

Dim mainWorkBook As Workbook

Definir mainWorkBook = ActiveWorkbook

Folderpath="C: \ Usuários \ jyousef \ Documents \ SL \ October15"

Defina 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

End Sub

    

Answer 1

Objetos não são realmente colocados em células, então não sei como isso funciona com uma mala direta, mas para colocar objetos em um ponto diferente, basta selecionar as células diferentes (os objetos são colocados na célula ativa se você não especificar superior e esquerda).

Adicione algo como

Range("A" & Counter).select

depois

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