VBA生成二维码（如何做二维码生成器）

VBA生成二维码（如何做二维码生成器）With CodeName .Style = 11 .Left = Me.Label2.Left .Top = Me.Label2.Top Me.Label2.Height .BackColor = RGB(211 1 1) .ForeColor = RGB(255 255 200) .Height = 320 .Width = .Height .Value = v End With新建二维按钮代码Me.Controls.Add("barcode.BarCodeCtrl.1" "CodeName")二维码属性设置 左侧是生成的二维码，右侧是一个文本框，输入要二维码存储的信息。操作简单，生成之后还可随机改换二维码颜色。新建二维码代码

二维码生成器，想必不陌生，用Excel vba 可以很好地生成二维码。

在一些信息记录过程当中，也有一些实际的用处。

下面介绍一下如何用vba代码生成二维码。

下面看下效果图

左侧是生成的二维码，右侧是一个文本框，输入要二维码存储的信息。

操作简单，生成之后还可随机改换二维码颜色。

新建二维码代码

Me.Controls.Add("barcode.BarCodeCtrl.1" "CodeName")

二维码属性设置

With CodeName .Style = 11 .Left = Me.Label2.Left .Top = Me.Label2.Top Me.Label2.Height .BackColor = RGB(211 1 1) .ForeColor = RGB(255 255 200) .Height = 320 .Width = .Height .Value = v End With

新建二维按钮代码

Private Sub CommandButton1_Click() Dim v As String v = VBA.Trim(Me.TextBox1.Value) If VBA.Len(v) = 0 Then Exit Sub 'DelBarCode Dim e As Object Set e = Me.Controls.Add("barcode.BarCodeCtrl.1" "Cod1") With e .Style = 11 .Left = Me.Label2.Left .Top = Me.Label2.Top Me.Label2.Height .BackColor = RGB(211 1 1) .ForeColor = RGB(255 255 200) .Height = 320 .Width = .Height .Value = v End With End Sub

可以做一些信息存储到二维码，然后扫描后可以在手机上查看，也可以设置一个网址链接到一个网页上，或者是链接到一个app应用。

总之，想到的可以实现的二维码功能都可以。

这个功能还是有一点用处的，在使用过程中一定会得到启发。