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

在EXCEL中可以批量生成条形码，二维码，也可以输出图片。也可以根据自己的标签模板，批量生成
在插件中，我提供了开放接口供大家使用VBA调用

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
 

插件下载
http://chishenglong.top/course/index_Bq.html