C列输入名称，B列插入同名图片

SFG328 · 发表于 2020-1-9 16:16

各位大佬，谁能帮忙写个VBA程序，C列输入名称，B列插入同名图片，

SFG328 · 发表于 2020-1-9 16:19

就是B列图片随C列名称想对应，C列无数据时，B列也清除图

SFG328 · 发表于 2020-1-9 16:25

请大神帮忙，如附件

广西府 · 发表于 2020-1-10 11:19

提示: 作者被禁止或删除内容自动屏蔽

SFG328 · 发表于 2020-1-12 10:39

aman1516 · 发表于 2020-1-12 15:49

SFG328 发表于 2020-1-12 10:39

100+下载无回复，试试：

Private Sub Worksheet_Change(ByVal Target As Range)
Dim pr, i, j, k, n, f
Dim Shp As Shape, rng As Range, r
If Target.Count > 1 Then Exit Sub
If Target.Column <> 3 And Target.Row < 2 Then Exit Sub
With ActiveSheet
For Each sp In .Shapes
If sp.Left < Range("C1").Left And sp.TopLeftCell.Offset(0, 1).Address = Target.Address Then sp.Delete
Next
End With
If Target.Value <> "" Then
f = ThisWorkbook.Path & "" & Target.Value & ".jpg"
If Dir(f) <> "" Then
With ActiveSheet.Pictures.Insert(f)
.Top = Target.Top
.Left = Target.Offset(0, -1).Left
.Height = Target.Height
'.Width = Target.Offset(0, -1).Width
End With
Else
MsgBox "请检查文件名是否正确或文件是否存在！"
End If
End If
End Sub

复制代码

aman1516 · 发表于 2020-1-12 15:50

详见附件：

B03.rar (353.11 KB, 下载次数: 9)

excel海 · 发表于 2020-1-12 17:47

还是可以实现的

		自动登录	找回密码
密码			免费注册

[求助] C列输入名称，B列插入同名图片

广西府广西府当前离线性别保密 UID 4339253 阅读权限 0 注册时间 2020-1-1 在线时间小时最后登录 1970-1-1 积分 57 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2020-1-10 11:19 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报