É possível inserir vários objetos de uma só vez no Excel 2007?

Question

Meu colega de trabalho mantém uma planilha de dados de candidatos, que inclui o currículo de cada candidato inserido como um objeto. Como podemos inserir vários objetos (currículos) ao mesmo tempo, em vez de passar pelo Inserir - > Objeto - > Criar do arquivo - > Mostrar como ícone método individual que estamos usando? Eu usei macros para fazer isso para inserir hiperlinks em documentos, mas não consigo descobrir um para isso ou encontrar uma resposta para uma pergunta semelhante. Por favor ajude!

    

Answer 1

É possível usar macro para isso. Por exemplo:

link

Talvez alguma extensão do Excel forneça essa funcionalidade.

Eu preciso modificar pouco a macro vinculada (para o Excel 2013), mas todos os créditos pertencem ao autor original.

Sub AddOlEObject()

Dim mainWorkBook As Workbook

Set mainWorkBook = ActiveWorkbook

Folderpath = "D:\Insert"

Set 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

Linhas comentadas causam falha de macro (Excel 2013), portanto, eu as desabilito. Eles são para posicionamento de objetos - então, sem eles, todos os objetos estão no canto superior esquerdo (último sobre o anterior).

Desculpe por mau inglês.