★利用有效性信息批量调用信息和图片★

longwj81 · 发表于 2011-7-20 12:44

实用是LangQueS版主的特色，收下，

钟若愚 · 发表于 2011-7-20 20:09

感谢版主分享。收藏下，慢慢学习，虽然目前还用不上，但今后可能会用得着。另外，版主的耐心解答让人感动！

wswcp · 发表于 2011-7-24 11:14

收藏慢悭学习

joyark · 发表于 2011-8-9 04:07

Sub jjj()
Dim i%, P$
i = Range("A1").Value
P = ThisWorkbook.Path & "\" & i & ".jpg"
If Dir(P) = "" Then MsgBox "找不到图片":exit sub
ActiveSheet.Shapes.AddPicture P, True, True, 60, 60, 60, 60
ActiveSheet.Pictures.Insert(P).Select'可选
End Sub

天水雅集 · 发表于 2011-8-19 15:38

支持楼主，谢谢

archer0521 · 发表于 2011-9-2 16:24

本来是要找一个根据现有规则对应图片名批量插入图片的范例，找到了这个，还正在学习中，有一定的帮助意义。

joyark · 发表于 2011-9-8 02:08

眞的很不錯，感謝

lgh978 · 发表于 2011-9-8 21:59

太棒啦谢谢分享.

winzsj · 发表于 2011-9-13 11:29

不知道是怎么做出来的，不过效果很强大。应该分析一下如何做，制作一个视频教程。

cenna · 发表于 2011-9-13 13:32

先学习一下

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