VBA Excel获取数据库图片

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Address = "$f$5" Then
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\照片\" & Trim(Target.Value) & ".jpg")
Sheets("").Image1.Picture = LoadPicture(ThisWorkbook.Path & "\照片\" & Trim(Target.Value) & ".jpg")
If Err.Number = 0 Then
Image1.Visible = True
Sheets("表").Image1.Visible = True
' [ao2] = "有图片"
Else
Image1.Visible = False
Sheets("表").Image1.Visible = False
' [ao2] = "无图片"
Err.Clear
End If
End If
End Sub
我的图片要放在那个位置才能将图片导入

3个回答

放在工作表的目录下面的"\照片\"子文件夹里面就可以将图片导入

你先把这句改了:If Target.Address = "$f$5" Then
改成 If Target.Address = "$F$5" Then

ThisWorkbook.Path 在新工作簿中为空值,要注意了。

单步执行,看看问题出在哪里......

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
立即提问
相关内容推荐