Apakah mungkin untuk memasukkan beberapa objek sekaligus di Excel 2007?

Rekan kerja saya menyimpan spreadsheet data kandidat, yang mencakup resume setiap kandidat yang dimasukkan sebagai objek. Bagaimana kita bisa menyisipkan banyak objek (resume) sekaligus, alih-alih melalui Sisipkan -> Objek -> Buat dari File -> Tampilan sebagai ikon metode individual yang telah kita gunakan? Saya telah menggunakan makro untuk melakukan itu untuk memasukkan hyperlink ke dokumen, tetapi tidak dapat menemukan satu untuk ini atau menemukan jawaban untuk pertanyaan serupa. Tolong bantu!

microsoft-excel

— Dorothy
sumber

Mulai merekam makro lakukan apa yang Anda inginkan dan Anda harus memiliki makro dasar untuk menambahkan objek. Atur dalam satu lingkaran seperti yang Anda lakukan untuk menambahkan hyperlink dan itu harusnya.

— gtwebb

Mungkin gunakan makro untuk itu. Sebagai contoh:

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

Mungkin beberapa ekstensi Excel menyediakan fungsi ini.

Saya harus sedikit memodifikasi makro tertaut (untuk Excel 2013), tetapi semua kredit milik penulis asli.

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

Baris yang dikomentari menyebabkan kerusakan makro (Excel 2013), jadi saya nonaktifkan. Mereka adalah untuk penentuan posisi objek - jadi tanpa mereka, semua objek berada di sudut kiri atas (terakhir lebih dari yang sebelumnya dimasukkan).

Maaf untuk bahasa Inggris yang buruk.

— Lluser
sumber