excel数据生成条码或者二维码并放在表格中（VBA）

最近做的项目要将一列数据生成条码和二维码，并打印
这是一个简单的表格操作嵌入式脚本目的是生成二维码或条码
直接上代码

Sub 批量生成二维码()

 Dim k As Long, i As Long, j As Long, l As Long, m As Long, n As Long

 Call 清除

 k = ActiveSheet.Range("A65536").End(xlUp).Row

 For i = 1 To k

 With ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1") '新增控件

 '控件的属性 ActiveSheet.Cells(i, 1).Width + 2

 If i > 5 Then

  j = i \ 5

   l = i Mod 5

    If l = 0 Then

        .Top = 203.4

    Else

    

        .Top = (l - 1) * 50.4 + 1.8

    End If

    If l = 0 Then

        .Left = j * 60

        Else

  .Left = (j + 1) * 60

  End If

  Else

  .Top = (i - 1) * 50.4 + 1.8

 .Left = 60

 End If

 

 .Width = 50

 .Height = 50

 '链接的参数单元格

 .Object.Style = 11 '二维码

 .Object.ShowData = 1

 .LinkedCell = "A" & i

 End With

 Next

End Sub



Sub 批量生成条形码()

 Dim k As Long, i As Lon