Можно ли вставить несколько объектов одновременно в Excel 2007?

Question

Мой коллега хранит электронную таблицу данных кандидатов, которая включает в себя резюме каждого кандидата, вставленного в виде объекта. Как мы можем вставить несколько объектов (резюме) за один раз, вместо того, чтобы идти через Вставить -> Объект -> Создать из файла -> Показать как значок отдельный метод, который мы использовали? Я использовал макросы, чтобы сделать это для вставки гиперссылок в документы, но не могу найти их для этого или найти ответ на аналогичный вопрос. Пожалуйста помоги!

Answer 1

Для этого можно использовать макрос. Например:

http://excel-macro.tutorialhorizon.com/vba-excel-addinsert-multiple-objects-from-a-folder-in-an-excel-document/

Возможно, какое-то расширение Excel обеспечивает эту функциональность.

Я должен немного изменить связанный макрос (для Excel 2013), но все кредиты принадлежат первоначальному автору.

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

Комментированные строки вызывают сбой макросов (Excel 2013), поэтому я отключаю их. Они предназначены для позиционирования объекта - поэтому без них все объекты находятся в верхнем левом углу (последний перед ранее вставленным).

Извините за плохой английский.