VBA Excel获取数据库图片

Question

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
我的图片要放在那个位置才能将图片导入

Answer 1

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