EXCEL怎么实现输入文字即可插入对应的图片？
答案:1 悬赏:20 手机版
解决时间 2021-01-28 02:38
- 提问者网友：沉默菋噵
- 2021-01-27 12:58
例如：我要做一个生产计划表，输入产品编码，就可以自动插入该产品的图片，怎么实现？
最佳答案
- 五星知识达人网友：独行浪子会拥风
- 2021-01-27 13:05
可以使用VBA实现该操作。
设定图片路径在本sheet同样的文件夹中。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 Then
ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Target.Value & ".jpg").Select
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Left = Target.Offset(0, 1).Left
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Top = Target.Offset(0, 1).Top
End If
End Sub
设定图片路径在本sheet同样的文件夹中。
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 1 Then
ActiveSheet.Pictures.Insert(ThisWorkbook.Path & "\" & Target.Value & ".jpg").Select
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Left = Target.Offset(0, 1).Left
ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Top = Target.Offset(0, 1).Top
End If
End Sub
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯