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.Imag