求助求一个能自动生成二维码的VBA代码

单个如下，多个就需要VBA代码了
开发工具-----插入-----其它控件（最右下角）
在其它控件窗口选择：Microsoft BarCode Control 16.0,点击确定
在Sheet表空白区域，用鼠标画一块区域存放编码(鼠标形状为+形)
点击菜单：开发工具--属性（控件）
第3行：（自定义）页属性---样式(S)，其中
2 - EAN-13 (13位条形码)
3 - EAN-8 (8位条形码)
11-QR Code（QR码，二维码）
第12行：LinkedCell后输入关联的单元格，如A3。
第22行：Value 手动输入编码的数值
设计好后点击：开发工具---设计模式，取消设计模式固定编码图形，需要修改再次点击 设计模式 进入设计状态。