在Mac VBA中生成QR码
我试图在一个运行在Mac上的Excel表格中打包并显示一系列QR码(200+)。 Patratacus给出的使用Excel VBA生成2D(PDF417或QR)条形码的第一个解决scheme需要很长时间来运行这么多的代码,而且由于QR代码是由多个形状组成的,所以屏幕刷新变得非常慢,具有200多个QR码在一张纸上。
因此,我使用Excel VBA在生成2D(PDF417或QR)条形码时使用 @Luiz解决scheme,得到了在PC上工作的代码,但不幸的是,它似乎在Mac上无法正常工作。
随着代码:
sURL = "https://api.qrserver.com/v1/create-qr-code/?" + "size=" + Trim(Str(size)) + "x" + Trim(Str(size)) + "&color=" + color + "&bgcolor=" + bgcolor + "&data=" + data Debug.Print sURL Set pic = ActiveSheet.Pictures.Insert(sURL + sParameters)
SURL + sParameters – 似乎从API返回图像的原始数据https://api.qrserver.com/v1/create-qr-code/?
。 所以我已经能够得到一个Mac shell脚本来返回我想用的相同的原始数据:
sResult = execShell(= "curl --get -d """ & "size=" + Trim(Str(size)) + "x" + Trim(Str(size)) + "&color=" + color + "&bgcolor=" + bgcolor + "&data=" + data & """" & " " & "https://api.qrserver.com/v1/create-qr-code/?")
但是,如果将返回的string插入到:
ActiveSheet.Pictures.Insert()
在Mac上它似乎也不工作。 所以我的猜测是,在Mac ActiveSheet.Pictures.Insert()不能读取原始图像数据,只有path和文件名称的图片文件。
所以我认为我们的select是:
-
find一个为什么要显示一个图片使用原始数据返回的API或
-
find一种方法来将API返回的原始数据保存为Macs文件系统上的图片文件,然后使用excels ActiveSheet.Pictures.Insert()代码打开该文件。
以下是API文档页面的链接: http : //goqr.me/api/doc/create-qr-code/
我希望我上面写的是有道理的,因为我可能没有全部的术语。 我很早就使用API等