前景提要
今天我们要生成的是二维码，二维码应该是最近几年才兴起的，随着微信，支付宝等一系列新型的APP卡开始广为流传的，那么面对这样一个新兴的东西，VBA还能应对吗？VBA还能像二维码一样，轻松生成吗？
场景说明
代码区
Sub 生成二维码()
Dim rng As Range, a As Range
Notice = MsgBox("默认还在右侧生成二维码，请确认右侧单元格无数据", vbYesNo + vbInformation)
If Notice = vbYes Then
Set rng = Application.InputBox("请选择需要转码的区域", "区域的选择", , , , , , 8)
For Each a In rng
URL = "https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=" & a
With a.Offset(0, 1)
mt = .Top
ml = .Left
mw = .Width
mh = .Height
ActiveSheet.Shapes.AddShape(msoShapeRectangle, ml, mt, mw, mh).Select
Selection.ShapeRange.Fill.UserPicture URL
End With '填充单元格的作用
Next a
Else
Exit Sub
End If
End Sub
直接来看看效果
代码解析
VBA还可以和网络直接形成交互，这样的功能你一定没有想到，如果你学习的足够的深入的话，你甚至可以用VBA来做网络爬虫，爬取其他网站中的数据，这个利用API就算是小儿科了。
代码上面并没有太多要讲解的，属于即用型代码
