EXCEL VBA 二维码DLL

excel VBA VB 可调用的生成二维码DLL,支持中文 调用方法: 先用regsvr32 注册DLL再调用 Public Function ShowQrcode(ByVal S As String) Dim Img As New Qrcode.cMain If Trim(S) = "" Then Exit Function End If Sheet1.Image1.PictureSizeMode = fmPictureSizeModeStretch Set Sheet1.Image1.Picture = Img.QRcode_EN(S) End Function