E立方Excel服务器通过VBA接口生成二维码

1.表格样式

2.按钮代码

3.效果图

点击“生成二维码”按钮，自动生成二维码

4.VBA接口代码

Private Sub CommandButton1_Click()

        Dim obj As Object

        Set obj = Application.COMAddIns.Item("prjAddin.Office_Addin").Object

        obj.NewBarCode Range("I4").Text, 34, 6, 9, 3  '生成二维码

        Set obj = Nothing

End Sub