作用：产生指定类型的条形码和二维码（服务器环境需要Win7以上），它产生的结果是以图形的方式来显示在指定的“图片”类型数据项目上。
              参数：参数1 —— 要产生条形码或者二维码的数据
                       参数2 —— 编码类型的代号
                       参数3 —— 显示条形码和二维码的单元格的行号
                       参数4 —— 显示条形码和二维码的单元格的列号
                       参数5 —— 影响条形码和二维码大小的因子，1 是原始大小，小于1就是缩
小，大于1就是放大，支持小数，例如1.2 表示1.2倍，
注意：实际的大小还受单元格的大小影响
       返回值：无
 
示例：
Sub CommandButton1_Click()
              ’定义接口变量
Dim obj As Object 
                     ‘获取E立方管理平台 的编程接口
        Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object
                 '产生常用39码
        obj.NewBarCode ”1234567890”, 6, 6, 3, 1.5
               '产生二维码
        obj.NewBarCode ” E立方管理平台”, 34, 6, 9, 3 
 
‘释放编程接口
        Set obj = Nothing
End Sub
解说：点击按钮后，1、在第6行第3列的单元格产生“1234567890”的条形码，大小是1.5倍，2、在第6行第9列的单元格产生“E立方管理平台”的二维码，大小是3倍。
结果如下图所示：