请问如何用Excel vba在单元格中插入照片
2个回答
展开全部
插入---模块----将下面代码粘贴进去就行了。
Sub 批量插入图片()
Dim wj As String
Dim rng As Range
Sheets("员工档案").Select '选中要插入图片的工作表
x = [a65536].End(xlUp).Row '取得最后一行的行号
For i = 2 To x
na = Cells(i, 2) '从第二列(即B列)得到员工名字,并以此名查找图片
wj = "e:\照片" & "\" & na & ".jpg" '图片文件存储的路径与格式(.jpg)
If Dir(wj) <> "" Then
Cells(i, 5).Select '图片需要插入到第五列(即E列)
ActiveSheet.Pictures.Insert(wj).Select
Set rng = Cells(i, 5) '根据单元格的大小调整图片
With Selection
.Top = rng.Top + 1
.Left = rng.Left + 1
.Width = rng.Width - 1
.Height = rng.Height - 1
End With
End If
Next
MsgBox "图片插入完毕"
End Sub
不明白可联系我。
Sub 批量插入图片()
Dim wj As String
Dim rng As Range
Sheets("员工档案").Select '选中要插入图片的工作表
x = [a65536].End(xlUp).Row '取得最后一行的行号
For i = 2 To x
na = Cells(i, 2) '从第二列(即B列)得到员工名字,并以此名查找图片
wj = "e:\照片" & "\" & na & ".jpg" '图片文件存储的路径与格式(.jpg)
If Dir(wj) <> "" Then
Cells(i, 5).Select '图片需要插入到第五列(即E列)
ActiveSheet.Pictures.Insert(wj).Select
Set rng = Cells(i, 5) '根据单元格的大小调整图片
With Selection
.Top = rng.Top + 1
.Left = rng.Left + 1
.Width = rng.Width - 1
.Height = rng.Height - 1
End With
End If
Next
MsgBox "图片插入完毕"
End Sub
不明白可联系我。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询