由于朋友需要,花了半天参考网上写法写的宏代码,运行时首先须将宏安全性设为“低”
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