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
我的图片要放在那个位置才能将图片导入
VBA Excel获取数据库图片
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
3条回答
悬赏问题
- ¥15 完成下列问题完成下列问题
- ¥15 C#算法问题, 不知道怎么处理这个数据的转换
- ¥15 YoloV5 第三方库的版本对照问题
- ¥15 请完成下列相关问题!
- ¥15 drone 推送镜像时候 purge: true 推送完毕后没有删除对应的镜像,手动拷贝到服务器执行结果正确在样才能让指令自动执行成功删除对应镜像,如何解决?
- ¥15 求daily translation(DT)偏差订正方法的代码
- ¥15 js调用html页面需要隐藏某个按钮
- ¥15 ads仿真结果在圆图上是怎么读数的
- ¥20 Cotex M3的调试和程序执行方式是什么样的?
- ¥20 java项目连接sqlserver时报ssl相关错误