vba生成二维码改小了就扫不出来感觉是二维码不够密集

王林96 · 发表于 2020-5-31 11:34

本帖最后由王林96 于 2020-5-31 11:39 编辑

QQ图片20200531112618.png

在退出设计模式下二维码不完全，扫描不出来改大可以扫出来但是要求要小

在设计模式下二维码大小一样但是能够扫描出来看起来二维码也是完整的

引用的是网上的vba代码现在的问题就是能够退出设计模式下二维码小的时候也能扫描出来就行了
就是想退出设计模式下二维码生成之后能扫出来
请各位大神帮帮忙

王林96 · 发表于 2020-5-31 11:43

Sub print2d()
Dim QRString1 As String
'定义变量
QRString1 = Sheet1.Range("k23")
'将k23单元格的值传递给QRString1，生成二维码
Sheet1.Select
Sheet1.QRmaker1.AutoRedraw = ArOn
'启用QRmaker的自动重画属性
Sheet1.QRmaker1.InputData = QRString1
'将QRString1的值传递给QRmaker1
End Sub

约定的童话 · 发表于 2020-5-31 13:13

别用控件用类模块做一个二维码

IVYQQQQQ · 发表于 2020-5-31 13:34

http://club.excelhome.net/forum. ... ead&tid=1539080

王林96 · 发表于 2020-5-31 21:03

约定的童话发表于 2020-5-31 13:13
别用控件用类模块做一个二维码

怎么做能给我个教程吗

王林96 · 发表于 2020-5-31 21:09

IVYQQQQQ 发表于 2020-5-31 13:34
http://club.excelhome.net/forum.php?mod=viewthread&tid=1539080

没看明白求指点......

IVYQQQQQ · 发表于 2020-6-1 09:13

王林96 发表于 2020-5-31 21:09
没看明白求指点......

不要用控件生成，附件参考！

王林96 · 发表于 2020-6-1 12:14

IVYQQQQQ 发表于 2020-6-1 09:13
不要用控件生成，附件参考！

这个怎么做出来的可以但是位置不能移动吗我想固定在某个位置

王林96 · 发表于 2020-6-1 12:20

IVYQQQQQ 发表于 2020-6-1 09:13
不要用控件生成，附件参考！

能远程教我一下吗我学习一下

IVYQQQQQ · 发表于 2020-6-1 12:39

王林96 发表于 2020-6-1 12:14
这个怎么做出来的可以但是位置不能移动吗我想固定在某个位置

代码中的 Range("f5").Select，你改成哪个位置就会在哪个位置的。

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

[求助] vba生成二维码改小了就扫不出来感觉是二维码不够密集

最新热点 /1

[求助] vba生成二维码改小了就扫不出来 感觉是二维码不够密集

最新热点 /1

[求助] vba生成二维码改小了就扫不出来感觉是二维码不够密集