我又拿Excel来搞事情了，批量随机添加水印图片v3.0（更新3.0更稳定易用）

2023.3.29 23：00更新 3.0版本
    看到大家这么热情，我就顺手优化了一下代码，这下子只要求水印的图片格式是png就好了，其它都没有要求了，随便起名子，随便放几张水印图都可以，其实不需要PNG也是可以的，只不过水印还是建议用PNG，因为背景可以透明。等我有空再看看哪些能再优化，或者是加一些其它的功能。
----------------------
2023.3.29 下午16：00更新  
睡一个午觉起来，发现还是有不少同学喜欢的，我看了一下代码，有好多地方可以优化，像输入最大水印图片数这里就不应该存在，这里会容易造成程序崩溃，我就删除了这一步。唯一要注意的是水印的图片命名要水印x.png，x为1-1000的整数，其实这也不需要的，我懒得写取水印图片的文件名了。
---------------------------
最近发现Excel真是无所不能啊，不但能处理数据，还能干一些杂活，看到有网友拿来玩俄罗斯方块，还能处理音频文件，还能搞图片
于是我也来试搞一下图片添加水印功能。
关于图片添加水印，这个貌似很多同志会吐槽，拿Excel来搞是不是多此一举，嗯，如果单纯的是添加水印，确实一大堆软件比比皆是，且都很出色。
我只想说随机添加图片水印，貌似没有一个软件在弄吧，如果有请大家发给我一个，记得之前有网友在悬赏这个，是不同的水印添加到一个图片上，然后生成不同的水印图片，可能他是想拿来作宣传什么用的，当时我也在关注，不过好像真的没有相关的软件做这个功能，都是批量添加同一个水印。
今天拿Excel来搞，上述问题就可以迎刃而解了。

1.png

使用说明：
1、请做好你的随机水印图片，要求水印图片为PNG格式。
2、把水印图片与本Excel文件放在同一文件夹下。
3、点击运行批量随机添加水印按钮。
4、程序会弹出对话框，选择你要处理的图片即可。
5、程序运行完毕，会在本Excel路径下生成一个添加水印的图的文件夹，添加水印的图片会以原文件名保存到这里。
我里面有测试图，欢迎大家测试，另如果大家有点VBA的基础，可以随便更改水印的位置、高度、宽度，倾斜度等。如下是图片的一些相关参数。

页面提取自－5A-DLC扯淡篇.jpg

下载链接：https://wwgb.lanzout.com/iQwt20rg7cib
之前发过关于VBA的相关帖子，希望大家给点热心。有什么关于VBA的可以留言，大家相互学习。
Word-VBA多个关键词批量替换、批量转换成PDF、批量doc转docx
ExcelVBA遍历代码（批量替换、批量取消合并单元格、批量处理字段顺序等）
https://www.52pojie.cn/thread-1736414-1-1.html
Excel按列分拣整理文件-按指定文件名复制文件到相应的文件夹中
简单明了的EXCEL批量重命名3.0，支持选择后缀名，支持反悔功能