插入图片到单元格

爱疯

1. Sub a()
   
2.     Dim p As String
   
3.     p = ThisWorkbook.Path & "\图片\0.gif"
   
4.     Range("A1") = LoadPicture(p)
   
5. '    Range("A5").Select
   
6. '    ActiveSheet.Pictures.Insert p
   
7. End Sub

复制代码

新建文件夹.rar (20.56 KB, 下载次数: 17)

2011-7-13 11:36 上传

点击文件名下载附件

请问：
为什么a()的运行结果是数字，而且每次都不一样？
如题，除注释的办法，还有其它办法么？
谢谢！

Zipall

这个问题我觉得关键在于loadpicture返回的是什么?

是对象?还是值?

yiti80

爱疯

这样看，返回是long型的值。
可是，这儿的loadpicture()是什么？帮助查不到，只证明了可以这样做，也许这样做没意义。作为好奇，我只想问下