二维码中间加LOGO

用心修炼

vitrel 发表于 2019-9-16 08:27
据本人所了解，用VBA在EXCEL中生成二维码，在本论坛中出现并讨论已逾6、7年，
经多年来的完善，各种方法 ...

谢谢大佬的帮助与分享

li446425169

vitrel 发表于 2019-9-9 07:53
楼主，您的要求实现了吗？如果没，或许我能帮得上忙。
免费的，只是您的贴子有一定时间了，而我刚刚才看到 ...

你好，能不能给个例子参考一下，谢谢

opiona

http://club.excelhome.net/thread-1535960-1-1.html

vb.net写的二维码插件 ,VBA 可引用,支持32位 64位系统, 支持汉字
4楼的插件  开始支持添加Logo   可以实现二维码图片文件的识别

tansha

留个言，做个标记，以后需要时好查找。

同心/ty

yjh_27 发表于 2019-4-13 15:16
模块1是只删除二维码
For Each x In ActiveSheet.DrawingObjects
        If InStr(x.Name, "Picture") ...

老师，借用你的代码，应用到我的例子，为何还是把我的Ⅰogo图片删除了？请指教。https://club.excelhome.net/forum.php?mod=viewthread&tid=1606083&extra=&mobile=2

yjh_27

同心/ty 发表于 2021-11-14 07:17
老师，借用你的代码，应用到我的例子，为何还是把我的Ⅰogo图片删除了？请指教。https://club.excelhome. ...

If InStr(x.Name, "Picture") > 0 And x.Name <> "Picture 41" Then x.Delete

同心/ty

yjh_27 发表于 2021-11-14 09:44
If InStr(x.Name, "Picture") > 0 And x.Name  "Picture 41" Then x.Delete

老师，按你的提示找查，我查出的是Picture 33，为何取41呢？（文件是原始文件）

yjh_27

同心/ty 发表于 2021-11-14 13:56
老师，按你的提示找查，我查出的是Picture 33，为何取41呢？（文件是原始文件）

分步执行，33是要删除的原二维码，下一循环是41，是LOGO

同心/ty

yjh_27 发表于 2021-11-14 15:33
分步执行，33是要删除的原二维码，下一循环是41，是LOGO

谢谢老师的帮助。