Excel VBA 批量生成条形码

同学说学了Excel生成条形码后想要是老师能教写代码批量生成就好了，老师特地研究了barcode对象的方法跟属性的详细特性跟应用，写了几套代码，把其中一套简洁的代码分享给大家。
单元格宽21高85，格式设置为文本，A列放数值

Sub AutoBarCode()

    For Each ole In ActiveSheet.Shapes

        ole.Select

        Selection.Delete

    Next

    i = 1

    While Range("A" & i) <> ""

        Range("B" & i).Select

        ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1").LinkedCell = "A" & i

        i = i + 1

    Wend

End Sub