E立方管理平台Excel服务器批量生成条码、二维码。
 
1、设置表格，定义重复数据项

 
 
 
2、按钮增加接口函数代码：
 
Private Sub CommandButton2_Click()
        Dim iRow1, iRow2 As Integer
        Dim obj As Object
 
        Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object
        iRow1 = 17
        iRow2 = Range("P16").Value
        
        For I = iRow1 To iRow2
            
            obj.NewBarCode Cells(I, 2).Text, 6, I, 4, 1.5 '常用39码
        
            obj.NewBarCode Cells(I, 11).Text, 34, I, 13, 3 '二维码
    
        Next
 
End Sub
执行后效果
 
 
使用到的接口函数：

4.12.12.44 NewBarCode

作用：产生指定类型的条形码和二维码（服务器环境需要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倍。