Question

其实是用在EXCEL VBA中LoadPicture，如何能支持png图像

excel2003里面的 image控件 ，用LoadPicture("E:\xx.png")不行。。有没有办法让支持png图像？？？因为图片是由另一个软件导出的，只能导出png，数量巨大。

所以，在excel中插入了image控件，想用 loadpicture来加载，jpg没有问题，png就不行。。请高手给条明路。。

Answer 1

给你提供一个解决问题的思路，但具体的还得你自己操作：
由于excel2003的image控件不能装载.png格式的图像，所以可以使用API函数或自己设计一个图像格式转换函数，将.png图像转换成excel2003的image控件能装载的格式如.jpg后再用LoadPicture（）加载。

Answer 2

试下这个,
Dim SourceFile, DestinationFile As String
SourceFile = Me!Text1
DestinationFile = "c:\database\PHOTO\TH\" & *** & ".PNG"
FileCopy SourceFile, DestinationFile