D列是商品名称，E:\商品图是存放图片的文件夹，

东亚五金 · 发表于 2012-8-28 20:56

本帖最后由东亚五金于 2012-9-8 17:54 编辑

第一次在论坛上发帖，有不当之处请版主更正。
D列是商品名称，E:\商品图是存放图片的文件夹，
[/td] [/tr]

怎样根据D列每一个商品名称，与E:\商品图文件夹里的图片名称进行比较，名称相等，则把这个图片添加到批注里，不相等则不添加批注。
现在用的代码是，不管有没有图片，都加上批注啦，咋加个判断呢，俺是代码盲，有会的朋友给改改代码，或者给个完整的代码，在此感谢。
已经解决问题，再次感谢zhaogang1960版主

东亚五金 · 发表于 2012-8-28 20:59

明明上传附件啦，咋就看不到呢，在传

zhaogang1960 · 发表于 2012-8-28 21:33

请测试：

Sub 添加小图片批注()
Dim arr, p$, i&
p = "E:\商品图"
' p = ThisWorkbook.Path & "\商品图"'调试用
arr = Range("d1:d" & Cells(Rows.Count, 4).End(3).Row)
Call 删除批注宏
For i = 5 To UBound(arr)
MyPic = p & arr(i, 1) & ".jpg"
If Dir(MyPic) <> "" Then
With Cells(i, 4)
.AddComment
.Comment.Shape.Fill.UserPicture MyPic
.Comment.Shape.Height = 140
.Comment.Shape.Width = 140
End With
End If
Next
End Sub
Sub 删除批注宏()
Columns("D:D").ClearComments '删除批注
End Sub

复制代码

zhaogang1960 · 发表于 2012-8-28 21:35

请看附件

图片批注求助.rar (130.84 KB, 下载次数: 96)

tennicse · 发表于 2012-8-28 21:45

VBE.rar (136.85 KB, 下载次数: 100)

zhong_chen · 发表于 2012-8-28 21:50

学习学习学习一下！

东亚五金 · 发表于 2012-8-28 23:08

谢谢版主
代码基本上符合俺的想法，就是弄到帐里，有点小问题，
报类型不匹配，复制一部分可以，有的时候不行，
能否在看看，是啥问题，非常感谢。

东亚五金 · 发表于 2012-8-28 23:52

谢谢 tennicse
你这个也不错，只是不是我要的结果。
是要的批注里图片

zhaogang1960 · 发表于 2012-8-29 00:25

东亚五金发表于 2012-8-28 23:08
谢谢版主
代码基本上符合俺的想法，就是弄到帐里，有点小问题，
报类型不匹配，复制一部分可以，有的时候 ...

有的字符不能作为文件名，加个错误处理语句即可：
On Error Resume Next

图片批注求助.rar (211.45 KB, 下载次数: 84)

东亚五金 · 发表于 2012-8-29 01:53

非常感谢版主的热心帮助，代码非常成功。{:soso_e142:}
随便问问 Call 删除批注宏必须得和下面的代码关联吗？
Sub 删除批注宏()
Columns("D:D").ClearComments '删除批注
End Sub

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

[已解决] D列是商品名称，E:\商品图是存放图片的文件夹，

评分

[已解决] D列是商品名称，E:\商品图 是存放图片的文件夹，

评分

[已解决] D列是商品名称，E:\商品图是存放图片的文件夹，