excel批量導(dǎo)入圖片一般是使用VBA代碼實(shí)現(xiàn)，因?yàn)閑xcel功能的局限性，插入——圖片，盡管可以批量導(dǎo)入圖片，但不能自動(dòng)排版。

　　文章總結(jié)幾個(gè)excel批量導(dǎo)入圖片相關(guān)的案例，分享給大家。

excel批量導(dǎo)入圖片案例一：

　　如下圖所示：A列是姓名，D列需要批量導(dǎo)入A列姓名對(duì)應(yīng)的照片，當(dāng)單擊“圖片導(dǎo)入”按鈕，即可批量導(dǎo)入圖片。

　　下面的代碼實(shí)現(xiàn)的功能是：批量導(dǎo)入圖片，然后按照原比例縮放以填充單元格，如果單元格高寬改變，再次單擊“圖片導(dǎo)入”按鈕即可。

　　說(shuō)明：對(duì)應(yīng)的圖片命名需要和姓名一致，圖片文件夾和excel源文件放在同一路徑之下。

　　下面是具體的代碼：

Sub 批量導(dǎo)入圖片()
    '將圖片導(dǎo)入。
    '圖片按照原比例存儲(chǔ)，按照原比例存儲(chǔ)
    On Error Resume Next
    Dim R&
    Dim Pic As Object
    '先刪除所有可能存在的圖片
    For Each Pic In Sheet1.Shapes
        If Pic.Name <> Sheet1.Shapes("按鈕 97").Name Then
            Pic.Delete
        End If
    Next
    For R = 2 To Range("A65536").End(xlUp).Row
        '插入圖片
        Set Pic = Sheet1.Pictures.Insert(ThisWorkbook.Path & "\pic\" & Cells(R, 1) & ".jpg")
        '鎖定高寬比
        Pic.ShapeRange.LockAspectRatio = True
        '看高寬比。如果圖片高寬比高，那么調(diào)整到單元格高度，否則調(diào)整到單元格寬度
        '我們看到的右鍵格式菜單里的東西都是針對(duì)ShapeRange而言的，所以要用ShapeRange來(lái)設(shè)定
        With Pic.ShapeRange
            '如果圖片高寬比比單元格大，說(shuō)明圖片太高，只需調(diào)整圖片高度
            If .Height / .Width > Cells(R, 4).Height / Cells(R, 4).Width Then
                .Height = Cells(R, 4).Height
                '調(diào)整位置
                .Top = Cells(R, 4).Top
                .Left = Cells(R, 4).Left + (Cells(R, 4).Width - .Width) / 2
            '如果圖片高寬比比單元格小，說(shuō)明圖片太寬，只需調(diào)整圖片寬度
            Else
                .Width = Cells(R, 4).Width
                '調(diào)整位置
                .Left = Cells(R, 4).Left
                .Top = Cells(R, 4).Top + (Cells(R, 4).Height - .Height) / 2
            End If
        End With
    Next R
End Sub

　　我們?cè)趀xcel對(duì)圖片進(jìn)行排版時(shí)，可以選中圖片，勾選對(duì)齊網(wǎng)格，以及在插入圖片或控件時(shí)，按住Alt鍵并拖動(dòng)對(duì)象的邊框，可以快速調(diào)整尺寸適應(yīng)單元格大小。

excel批量導(dǎo)入圖片案例二：

　　利用excel制作職工基本情況統(tǒng)計(jì)表，如果將公司所有員工的照片都粘貼在EXCEL中，會(huì)造成EXCEL文件臃腫不勘。附件提供的文件和方法只需將員工照片與EXCEL放在一個(gè)文件夾內(nèi)即可快速調(diào)用。

　　隨著C2單元格選擇不同的姓名，所有的資料信息和對(duì)應(yīng)的照片會(huì)自動(dòng)發(fā)生改變。下面是一個(gè)截圖。

excel批量導(dǎo)入圖片案例三：

　　按照級(jí)別批量插入對(duì)應(yīng)的軍銜圖片。

　　第一步：在H2單元格中輸入下列公式，下拉填充至H9單元格：
="<table><img src="""&REPLACE(CELL("filename"),FIND("[",CELL("filename")),99,)&"photo\"&G2&".gif"" width=72 height=48>"

　　第二步：復(fù)制H2:H9單元格→選中1個(gè)空單元格→單擊編輯欄→將剪切板的內(nèi)容粘貼到編輯欄內(nèi)→在編輯欄內(nèi)復(fù)制剛才粘貼的內(nèi)容→單擊H2單元格→Ctrl+V粘貼，完成批量導(dǎo)入圖片。

核心關(guān)注：拓步ERP系統(tǒng)平臺(tái)是覆蓋了眾多的業(yè)務(wù)領(lǐng)域、行業(yè)應(yīng)用，蘊(yùn)涵了豐富的ERP管理思想，集成了ERP軟件業(yè)務(wù)管理理念，功能涉及供應(yīng)鏈、成本、制造、CRM、HR等眾多業(yè)務(wù)領(lǐng)域的管理，全面涵蓋了企業(yè)關(guān)注ERP管理系統(tǒng)的核心領(lǐng)域，是眾多中小企業(yè)信息化建設(shè)首選的ERP管理軟件信賴品牌。

轉(zhuǎn)載請(qǐng)注明出處：拓步ERP資訊網(wǎng)http://www.oesoe.com/

本文標(biāo)題：excel批量導(dǎo)入圖片的方法和例子

本文網(wǎng)址：http://www.oesoe.com/html/support/11139213250.html