excel中批量导入图片方法

由于朋友需要，花了半天参考网上写法写的宏代码，运行时首先须将宏安全性设为“低”

Sub ShaprFill()

Dim lastcolnum As Integer

Dim lastrownum As Integer

Dim intcount As Integer

Dim p As Object

Dim i As Integer

Dim picpath As String

Dim xx As String

lastcolnum = Sheet1.UsedRange.Columns.Count  ‘工作表中有几列

lastrownum = Sheet1.UsedRange.Rows.Count     ’工作表中有几行

'MsgBox "cheng"    ‘为了测试运行加进去的，可删

For intcount = 2 To lastrownum

' MsgBox "cheng"

If IsEmpty(Sheet1.Cells(intcount, "A")) = False Then

picpath = Trim(Cells(intcount, "A"))

End If

' xx = Dir(picpath)

' If xx <> "" Then

Sheet1.Cells(intcount, "B").Select

Set p = Sheet1.Pictures.Insert(picpath)

With

p .Width = 50

.Height = 50

End With

' End If

Next intcount

Sheet1.Columns.ColumnWidth = 60

Sheet1.Rows.RowHeight = 60

MsgBox "图片导入成功" End Sub