纯VBA生成二维码(QRCODE)无任何第三方控件(技术原型版)

512fuytjgh · 发表于 2017-6-17 19:51

上面的二维码没用楼主怎么让上面的二维码不生成只生成下面的二维码

li2t · 发表于 2017-6-25 09:56

本帖最后由 li2t 于 2017-6-25 11:10 编辑

楼主这样可以吗：不要弹出窗体，内容在一个单元格内，点击按钮生成的二维码图片放到另一个单元格

leelovelu · 发表于 2017-6-26 14:18

li2t 发表于 2017-6-25 09:56
楼主这样可以吗：不要弹出窗体，内容在一个单元格内，点击按钮生成的二维码图片放到另一个单元格

用选定单元格生成二维码，生成后放在选定单元格的下方。
怎敢在楼主面前班门弄斧，还想请教如何调整图片的大小？

Sub QRCODEgenerator()

Call QRMain(ActiveCell.Value)
Call CreateBitmapQRCode(RGB(0, 0, 0), RGB(255, 255, 255))
Call QRCodeToClipboard
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste

End Sub

jinbinghao · 发表于 2017-6-27 14:25

stevefigo 发表于 2017-1-2 17:25
求大神回答，64位2013版报错，应该是VB版本更新导致不能兼容，但好像好多都需要修改，请问怎么改呀？能不能 ...

2016用都没问题,64位的没试过,不过干嘛要用64位的.很多东西都不能调用.不是64位系统就要装64位OFFICE,也可以装32位的.我就是64位系统安的32位OFFICE.

jinbinghao · 发表于 2017-6-27 14:30

leelovelu 发表于 2017-6-26 14:18
用选定单元格生成二维码，生成后放在选定单元格的下方。
怎敢在楼主面前班门弄斧，还想请教如何调整图片 ...

Selection.Width=
后面输入你需要的大小的数字就行了.
录制宏,改改就能解决

li2t · 发表于 2017-6-30 05:44

leelovelu 发表于 2017-6-26 14:18
用选定单元格生成二维码，生成后放在选定单元格的下方。
怎敢在楼主面前班门弄斧，还想请教如何调整图片 ...

编译错误，子过程或函数未定义

西部世界 · 发表于 2017-7-13 10:47

感谢楼主分享，学习 ~!

hlxue · 发表于 2017-7-31 15:59

这个就厉害了！

blackttea1 · 发表于 2017-8-3 15:05

感谢楼主分享，学习

松叶落 · 发表于 2017-8-18 11:35

太厉害了用了很不错

		自动登录	找回密码
密码			免费注册

[原创] 纯VBA生成二维码(QRCODE)无任何第三方控件(技术原型版)

评分