二维码中间加LOGO

蒋昊

zpy2 发表于 2019-4-13 11:27
不会ps?还是不会批量ps?

不会ps，我是想用VBA处理

蒋昊

EH_LOVE 发表于 2019-4-13 11:30
在线生成 就好了 用 POST  方式

我这需要很多二维码，生成再手动插入，很慢啊

EH_LOVE

蒋昊 发表于 2019-4-13 11:31
我这需要很多二维码，生成再手动插入，很慢啊

自动生成 插入啊

蒋昊

wangvvei 发表于 2019-3-27 12:46
直接用Excel表格来生成二维码。
直接将logo图片置于二维码之上就可以，放到二维码中间就可以。如图：

Sub Button3_Click() '打印选定行的数据

Application.ScreenUpdating = False
Dim xz As String
On Error Resume Next
xz = Application.Selection.SpecialCells(12).Address
If Len(xz) > 0 Then
p_kai = 1
erwei_kai = 0
erwei_kai = Val(canshu.Cells(1, 2)) '是否需要生成二维码

Call wvRw
'shtke.Range(xz).Select
End If
Application.ScreenUpdating = True

End Sub


Call wvRw 这个在哪儿啊，改不了

蒋昊

wangvvei 发表于 2019-3-27 12:46
直接用Excel表格来生成二维码。
直接将logo图片置于二维码之上就可以，放到二维码中间就可以。如图：

标签数据： 标签效果：

蒋昊

EH_LOVE 发表于 2019-4-13 11:32
自动生成 插入啊

求代码啊，兄弟

xyxcc177

蒋昊 发表于 2019-4-13 11:37
标签数据：标签效果：

设计得漂亮！

xyxcc177

、、、、、、、、、、

yjh_27

蒋昊 发表于 2019-4-13 11:38
求代码啊，兄弟

参见附件。

zpy2

xyxcc177 发表于 2019-4-13 13:08
、、、、、、、、、、

。。。。。。。。。。。