升级版LoadPictrue(可加载PNG、网络图片、XP格式ICO)

joforn

使用方式：VBA工程中直接导入basLoadPictrue.bas文件即可。
调用方式：请参照VBA帮助中的LoadPictrue函数。
适用文件：xlsx、xlsm、ZIP文件中的图片、可下载的网络图片、压缩格式ICO、PNG及原有函数所支持的图片。

使用说明：
一、由于这个函数是一两年前写的半成品，后来由于工作忙，一直没时间继续，所以现在也还是半成品(对我而言)，所以不保证能100%没有Bug。本函数仅限刚好有需要直接加载图片到iPictrue或Pictrue类中的时候使用，不建议作为商用或是装逼等用途。
二、这个函数仅仅只是LoadPictrue的小范围替代使用；
三、函数所用到的源码过于简单，没写注释；
四、本函数仅适用有限的操作系统及Office版本，除32位及64位Windows版本中的Office以外，不支持其它任意版本的Office，请不要尝试在MAC或Linux等常用系统中运行；
五、本函数未经严格测试，仅在Windows 7系统上的Office 2016(繁体64位)、Office 2013(英文32位)及Windows 10上的Office 2016(简体64位)中做过有限的两三次运行测试；

粗糙的技术说明：
由于VBA是基于非常古老的技术平台及操作系统平台开发的，已经过去了几十年，在Windows 98以后，几乎没有任何核心函数的修改。所以VBA内部的核心内容都是非常非常古老。就算是从32位升级64位也仅仅做了最简单的升级，没有其它任何的核心修改。所以像LoadPictrue早已经不再适用现在的图片加载，并且，因为IPictrue也是一个非常古老的类模型，所以无论怎么改，都对PNG、SVG等图形文件非常不友好。本人写的这个LoadPictrue也仅仅只是粗暴的把PNG强行转换，打包装进IPictrue对象中，所以如果是带透明通道的PNG图片或是ICO图片会有些许噪点，有些是图片本身自带的噪点，但因为背景处理及VBA的图片输入函数会显得噪点比较突出。

最后说明：
本模块仅供各位朋友参考，讨论，以期能在本帖内产生更强更好的代码……谢谢。

joforn

新版本预告：

1. 
   
2. '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
   
3. '>>>>>>>>   Name:       LaodPictrue                       <<<<<<<<<<<<<<<<<<
   
4. '>>>>>>>>   Version:    1.1                               <<<<<<<<<<<<<<<<<<
   
5. '>>>>>>>>   Author:     Joforn                            <<<<<<<<<<<<<<<<<<
   
6. '>>>>>>>>   Email:      Joforn1@163.com                   <<<<<<<<<<<<<<<<<<
   
7. '>>>>>>>>   Facebook:   Joforn1@163.com                   <<<<<<<<<<<<<<<<<<
   
8. '>>>>>>>>   QQ:         42978116                          <<<<<<<<<<<<<<<<<<
   
9. '>>>>>>>>   Last time : 09/10/2022                        <<<<<<<<<<<<<<<<<<
   
10. '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
    
11. 
    
12. '函数说明： 将本模块导入后，将自动升级当前VBA项目中所有的原LaodPictrue函数，无需修改其它的代码（除非用需要用到本函数1.1版新增功能）。
    
13. '           本函数将会覆盖原有函数，由于本函数将代码核心使用的是GDIP函数，所以完美支持原有函数所有功能；
    
14. '           本函数新增支持下面几种图形文件格式：PNG、TIFF、压缩格式ICO、32位真彩色透明ICO(这几种格式原有函数均不能加载)；
    
15. '           为方便使用，本函数可以将FileName参数指定为Byte类型的数组或是stdole.IUnknown类型的Stream流，函数将会直接将上面数据中的图形文件加载成iPictrue对象；
    
16. '           为方便使用，本函数可以将FileName参数指定为一个网址URL，函数将自动从指定的网址下载图片并加载。
    
17. '1.1版本新增功能：
    
18. '           本函数修改了原有函数的LoadPictureConstants类型的Flags，通过使用新的Flags值，可以在输出的iPictrue图片使用新的显示效果：
    
19. '           1、可调整原图的对比度；
    
20. '           2、可调整原图的亮度；
    
21. '           3、可调整原图的曝光度；
    
22. '           4、将图片风格化后输出，如：鲜艳、灰度化、老照片等。

复制代码

水和米

哈哈，我知道版主为什么早不发晚不发，现在这个时间点分享出来了

joforn

水和米 发表于 2022-9-7 22:01
哈哈，我知道版主为什么早不发晚不发，现在这个时间点分享出来了

扔在硬盘里扔出两年多，没时间弄，原来的代码只能在64位里用用。这几天因为疫情管控，在家里蹲着，刚好看到有人找，就把旧代码稍稍改了改，拿出来给大家玩玩。不是疫情的原因，估计再过几年都不会发出来，实在是没时间玩VBA了。

aman1516

看看，标识学习，支持原创

opiona

建议 :

1. #If VBA7  Then

复制代码

都替换为:

1. #If VBA7 And Win64 Then

复制代码

joforn

opiona 发表于 2022-9-8 00:07
建议 :  
都替换为:

不需要，VBA 7.0版本中才会有LongPtr这个变量类型。不管是32位还是64位中都有这个变量类型。这个变量类型的长度是变化的，在32位中长度是4字节（等同于Long），在64位中是长度是8字节（等同于Longlong），所以只要判断是否为VBA7就行了。

morpheus126

98年呀。。。那么早。。。真希望能稍微更新一下下

chixun9999

这么专业的大神啊，收藏留个印记

joforn

一楼附件已经重新上传，本次更新修复了几个致命错误。
新增直接从Byte数组加载图片功能。
新增直接从Stream流中加载图片功能。