最近从vba转到js宏，以前写vba可以引用BarcodeX控件生成条形码，但我不知道怎么在wps js环境引用第三方控件，所以只能用Shapes.AddPicture方法插入条形码图片，这里利用bwip-js的在线api接口生成条形码。

bwip-js 作者的GitHub地址

一、bwip-js条形码在线 API ：

http://bwipjs-api.metafloor.com/
https://bwipjs-api.metafloor.com/

然后指定两个必须参数：bcid参数指定条形码类型、text参数指定条形码的值，通过拼接参数生成条形码，例如生成code128、20230208的条形码：

https://bwipjs-api.metafloor.com/?bcid=code128&text=20230208&includetext=true&textsize=12

二、wps js利用Shapes.AddPicture方法插入条形码图片

AddPicture(链接, 是否链接文件, 是否与文档保存, 左边距离, 顶部距离, 图片宽度, 图片高度)，例如在工作表左边距离20、顶部距离20，插入一个宽度120、高度60的条形码图片

let sht = ThisWorkbook.ActiveSheet
let link = 'https://bwipjs-api.metafloor.com/?bcid=code128&text=20230208&includetext=true&textsize=12'
let pic = sht.Shapes.AddPicture(link, true, true, 20, 20, 120, 60)

三、案例：批量code128条形码小标签并导出为pdf

Sheet1工作表数据

Sheet2工作表页面布局设置

代码

/*** CommandButton1_Click Macro*/
function CommandButton1_Click() {let wb = ThisWorkbook, sht1 = wb.Sheets(1), sht2 = wb.Sheets(2), data = sht1.Range('A2').CurrentRegion.Value2, today = dateFormat('yyyy-mm-dd', new Date)if (data.length <= 1 && data[0].length != 6) return alert('请检查数据是否正确')//删除原条形码图片for (let i of sht2.Shapes) {i.Delete()}sht2.Range('A1:H20').Value2 = ''sht2.Range('A1:H20').Copy(sht2.Range('I1'))sht2.Columns('A:H').Delete()let rng = sht2.Range('A1:H20')for (let i = 1; i < data.length; i++) {let j = 20 * i + 1rng.Copy(sht2.Range('A' + j))sht2.Range('B' + (j + 5)).Value2 = data[i][0]sht2.Range('A' + (j + 9)).Value2 = today + ', ' + data[i][4] + ', ' + data[i][5]sht2.Range('A' + (j + 14)).Value2 = data[i][1] + ', ' + data[i][2] + ', ' + data[i][3]}for (let i = 1; i < data.length; i++) {let link = `https://bwipjs-api.metafloor.com/?bcid=code128&text=${data[i][0]}&textsize=12&height=9`let pic = sht2.Shapes.AddPicture(link, true, true, 65, (270 * i + 15), 300, 50)}sht2.Rows('1:20').Delete()let fileName = ThisWorkbook.Path + `\\Lable${dateFormat('yyyymmddHHMMSS', new Date)}.pdf`sht1.Visible = falseThisWorkbook.SaveAs(fileName, 103)sht1.Visible = truesht1.Select()alert('完成')}//日期格式化
function dateFormat(fmt, date) {let retconst opt = {'y+': date.getFullYear().toString(),'m+': (date.getMonth() + 1).toString(),'d+': date.getDate().toString(),'H+': date.getHours().toString(),'M+': date.getMinutes().toString(),'S+': date.getSeconds().toString()}for (let k in opt) {ret = new RegExp('(' + k + ')').exec(fmt)if (ret) {fmt = fmt.replace(ret[1], (ret[1].length == 1) ? (opt[k]) : (opt[k].padStart(ret[1].length, '0')))}}return fmt
}