EXCEL VBA:运行时如何添加图片?

2015-04-11 23:27 阅读 93 次 评论关闭

运行时添加图片有四种方法:

  • 使用 LoadPicture 函数,指定一文件名,并将该图片赋值给 Picture 属性。

    下列语句将 Cars.bmp 文件加载到名为 picDisplay 的图片框内(通过设置其 Name 属性,可对一控件命名):

    picDisplay.Picture = LoadPicture(“C:\Picts\Cars.bmp”)

    任何需要的时候,都可加载一新图片到窗体上,图片框中或图象控件里。尽管图片的源文件不会受到影响,但加载的新图片将会完全替代正显示的图片。

  • 使用 LoadResPicture 函数,可把工程中 .res 文件的一图片,赋值给 Picture 属性。

    下列语句将资源文件里资源标识号 ID 为 10 的位图,加载到名为 picResource 的图片框内:

    Set picResource.Picture = LoadResPicture(10, _
    vbResBitmap)
    
  • 对象间图片的相互复制。

    如果图片一旦被加载或粘帖到窗体、图片框或图象控件以后,那么运行时就可把它赋值给另一窗体,图片框或图象控件。例如,下列语句将把名为 picDisplay 图片框中的图片,复制到名为 imgDisplay 的图象控件内:

    Set imgDisplay.Picture = picDisplay.Picture
    
  • 从剪贴板对象复制图片。

详细信息 关于从剪贴板复制图片的详细内容,请参阅“在剪帖板上使用多种格式”。

关于资源文件的内容,请参阅“使用资源文件”中的“再论编程”。

注意 如果是在设计时从文件中加载或粘帖图片,则图片就和窗体一起被保存和加载,而应用程序可将图片从一个对象复制到其它对象。然后,在创建 .exe 文件时,就不必把此图片文件的备份提供给用户,因为 .exe 文件本身包含有它的图象。另外,可以考虑提供 .res 文件和使用 LoadResPicture。.res 文件将被编译到 .exe 文件中,而位图则以任何资源编辑器都可读的标准格式保存。如果要在运行时用 LoadPicture 函数加载图片,则必须把图片文件和应用程序一起提供给用户。

版权声明:本文著作权归原作者所有,欢迎分享本文,谢谢支持!
转载请注明:EXCEL VBA:运行时如何添加图片? | 猎微网

评论已关闭!