|
楼主 |
发表于 2020-2-19 11:24
|
显示全部楼层
感谢您的帮助!我用了你的代码 把参数改了一下……终于可以了
Sub 图片导入()
Dim sp As Shape '定义sp为对象
Dim rng As Range
Dim Tel As String
Dim Myname As String
On Error Resume Next
i = Range("j6")
For Each sp In Sheets("农村户厕改建情况表(到户)").Shapes '遍历工作表中的图片
If sp.Type = 13 Then
sp.Delete '删除图片
End If
Next sp
Tel = Sheets("农村户厕汇总数据").Range("h" & i).Value '电话(注:图片命名中,必包含电话号码)
Myname = Sheets("农村户厕汇总数据").Range("y" & i) & ".jpg"
'Myname = Dir(ThisWorkbook.Path & "\*" & Tel & "*.jp*g") '图片名
pah = ThisWorkbook.Path & "\" & Myname '图片路径及图片名
Set rng = Sheets("农村户厕改建情况表(到户)").Range("B10:F10") '需要插入图片的单元格区域
Set sp = Sheets("农村户厕改建情况表(到户)").Shapes.AddPicture(pah, True, True, rng.Left, rng.Top, rng.Width, rng.Height) '添加图片,充满单元格区域
If Myname = "" Then
MsgBox "找不到对应图片"
End If
End Sub
|
|