EXCEL插件《二维码标签工具》

池盛龙 · 发表于 2022-8-13 02:07

批量生成二维码
批量生成二维码4.gif

批量生成条形码
批量生成条形码.gif

批量生成所有格式的标签
批量生成标签10-1.gif

池盛龙 · 发表于 2022-8-14 03:25

22.8.14 二维码标签工具V1.1版本开放EXCEL调用接口

Sub 生成单个二维码_简易接口()
'Application.COMAddIns.Item("二维码标签工具").Object.Eweima ' 二维码内容",单元格, 白边距，高度,插入类型
Application.COMAddIns.Item("二维码标签工具").Object.Eweima "20190325-24", Range("C2"), 1, 50, "插入单元格"
Application.COMAddIns.Item("二维码标签工具").Object.Eweima "20190325-24", Range("C2"), 1, 50, "插入批注"
'参数说明
'1.接口名称 Eweima,完整书写方式是：Application.COMAddIns.Item("二维码标签工具").Object.Eweima
'2.第一参数是二维码的内容
'3.第二参数是单元格对象，二维码需要放在哪个单元格，就用哪个单元格对象
'4.第三参数是白边距
'5.第四参数是二维码高度大小
'6.第五参数是插入类型分别有"插入单元格"，"插入批注"
End Sub

复制代码

Sub 生成单个条形码_简易接口()
'Application.COMAddIns.Item("二维码标签工具").Object.Txinma "条形码内容",单元格, 条形码类型,是否需要文字,白边距
Application.COMAddIns.Item("二维码标签工具").Object.Txinma "3265798487", Range("F2"), "CODE_128", True, 0
'参数说明
'1.接口名称 Txinma,完整书写方式是：Application.COMAddIns.Item("二维码标签工具").Object.Txinma
'2.第一参数是条形码的内容，不能含有中文
'3.第二参数是单元格对象，条形码需要放在哪个单元格，就用哪个单元格对象
'4.第三参数是条形码的编码 '条形码的编码，可选值是"CODE_128","CODE_39"和"CODE_93"，注意根据内容选择合适条码类型否则将报错。
'5.第四参数是指生成的条形码下方是否需要带文字 TRUE=无文字纯码，False=有文字
'6.第五参数是白边距
End Sub

复制代码

Sub 生成单个二维码_高级接口()
'参数说明
Dim QrCodeContent As String '二维码内容
Dim Cellobject As Object '存放单元格位置
Dim WhiteMargins As Single '二维码白边距
Dim QrCodeType As String '二维码类型
Dim KeepPicture As Boolean '生成时是否保留图片到文件夹
Dim Clearance As Single '二维码在单元格的间隙
Dim ExportName As Object ' '二维码导出图片时的命名
Dim InsertType As String '插入类型
Dim QrCodeHeight As Single '二维码高度
Dim QrCodeLogo As String '二维码LOGO路径
Dim QRCodeForegroundColor '二维码前景色
'赋值设置
QrCodeContent = Range("B1").Value '二维码内容
Set Cellobject = Range("C1") '存放单元格位置
WhiteMargins = 0 '二维码白边距
QrCodeType = "QR_CODE" 'QR_CODE,AZTEC,DATA_MATRIX,MAXICODE 四种类型
KeepPicture = False '生成时是否保留图片到文件夹 True:不保留 False：保留
Clearance = 0 '二维码在单元格的间隙
Set ExportName = Range("A1") ' '二维码导出图片时的命名 KeepPicture 为Fasle 时可以不用设置, TRUE时命名有效
InsertType = "插入单元格" '插入类型插入单元格或插入批注
QrCodeHeight = 50 '二维码高度
QrCodeLogo = "" '二维码LOGO路径有路径填入路径无则留空
QRCodeForegroundColor = RGB(0, 0, 0) '二维码前景色
'调用代码执行
'函数说明
' Application.COMAddIns.Item("二维码标签工具").Object.Plerweima 二维码内容, 存放单元格位置,二维码类型,是否保留图片到文件夹,二维码在单元格的间隙,导出图片时的命名,插入类型,二维码高度,二维码LOGO路径,二维码前景色
Application.COMAddIns.Item("二维码标签工具").Object.Plerweima QrCodeContent, Cellobject, WhiteMargins, QrCodeType, _
KeepPicture, Clearance, ExportName, InsertType, QrCodeHeight, QrCodeLogo, QRCodeForegroundColor
End Sub

复制代码

Sub 生成单个条形码_高级接口()
'参数说明
Dim content As String '内容
Dim Cellobject As Object '存放单元格
Dim BarcodeType As String '条码类型
Dim PureCode As Boolean '是否纯码
Dim WhiteMargin As Single '白边距
Dim KeepPicture As Boolean '是否保留图片
Dim Clearance As Single '间隙
Dim ExportName As Object '命名
Dim BarcodeHeight As Single '高度
Dim BarcodeForegroundColor '条形码前景色
'赋值设置
content = Range("E1").Value '内容
Set Cellobject = Range("F1") '存放单元格
BarcodeType = "CODE_128" '条码类型 CODABAR,EAN-13,EAN-8,CODE_128,CODE_39,CODE_93,PDF_417,RSS_14,RSS_14,RSS_EXPANDED,ITF
PureCode = False '是否纯码
WhiteMargin = 1 '白边距
KeepPicture = False '是否保留图片
Clearance = 0 '间隙
Set ExportName = Range("E1") '命名 KeepPicture 为Fasle 时可以不用设置, TRUE时命名有效
BarcodeHeight = 50 '高度
BarcodeForegroundColor = RGB(0, 0, 0) '条形码前景色
'调用代码执行
'函数说明
'Application.COMAddIns.Item("二维码标签工具").Object.Pltxma 内容，存放位置单元格，条码类型，是否纯码, 白边距, 是否保留图片, 间隙, 命名图片,高度,条码前景色
Application.COMAddIns.Item("二维码标签工具").Object.Pltxma content, Cellobject, BarcodeType, PureCode, _
WhiteMargin, KeepPicture, Clearance, ExportName, BarcodeHeight, BarcodeForegroundColor
End Sub

复制代码

池盛龙 · 发表于 2022-8-18 16:56

22-8-18 新增在线安装程序，插件后期可以自动完成更新，无需额外关注官网更新情况。

rrxfw · 发表于 2022-8-13 09:00

厉害厉害，谢谢分享

约定的童话 · 发表于 2022-8-13 09:29

资费标准跟方方格子比有竞争力不？

池盛龙 · 发表于 2022-8-13 09:33

约定的童话发表于 2022-8-13 09:29
资费标准跟方方格子比有竞争力不？

纯属玩，随意

qqyyh · 发表于 2022-8-13 10:49

谢谢！挺不错工具。

约定的童话 · 发表于 2022-8-13 11:50

池盛龙发表于 2022-8-13 09:33
纯属玩，随意

物联网玩不玩？ESP8266

池盛龙 · 发表于 2022-8-13 11:52

约定的童话发表于 2022-8-13 11:50
物联网玩不玩？ESP8266

正想玩一下单片机

约定的童话 · 发表于 2022-8-13 21:53

池盛龙发表于 2022-8-13 11:52
正想玩一下单片机

VBA的劲头是物联网，可以尝试一下，前景很大

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

[分享] EXCEL插件《二维码标签工具》

评分