使用Excel内置控件生成二维码

现在二维码很流行了，名片，产品 信息 等都可以使用二维码，但是要生成二维码却还得下载工具，其实我们常用的office都可以生成二维码(目前不能使用中文),本文展示了如何使用VBA在Excel中批量生成二维码。

Sub 生成二维码()

Dim Row As Integer

Row = Range("A1").End(xlDown).Row

For i = 1 To Row

With ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1")

.Left = Range("B1").Left

.Top = Cells(i, 2).Top

.Width = 100

.Height = 100

.Object.Style = 11

.LinkedCell = "A" & i

Cells(i, 2).ColumnWidth = .Width / 6.33

Cells(i, 2).RowHeight = .Height

End With

Next

End Sub