关于OLEObjects控件生成二维码汉字的问题

易难亦易

全用OLEObjects控件，无论生成二维码还是条形码，可以支持数字、字母和符号，但如果存在中文字符，则不能生成。
哪位大佬能给个解决办法呢。谢谢啦。

1. Sub 二维码生成()
   
2. Application.ScreenUpdating = False
   
3. Call 删除条形码
   
4.         With ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1")
   
5.             .Name = "BarCodeCtrl" & "2"
   
6.             .Object.Style = 11
   
7.              .Height = 150
   
8.             .Width = 150
   
9.             .Left = Range("b2").Left
   
10.             .Top = Range("b2").Top
    
11.             .Object.Value = Range("a2")
    
12.         End With
    
13. Application.ScreenUpdating = True
    
14. End Sub
    

复制代码

vitrel

楼主，您的问题分为两部分解答。
第一，条形码不支持中文，无论你用哪种方法实现，情况都不能改变。
第二，二维码本身是支持中文的，但用Office自带的BarCodeCtrl来制作二维码，则不支持中文。

您若想在Excel中制作（支持中文的）二维码，方法实在有太多了，
向您推荐一下本论坛两位大神的原创方案，您可参考一下：

[原创] 纯VBA生成二维码(QRCODE)无任何第三方控件(技术原型版)  
http://club.excelhome.net/thread-1043020-1-1.html


[分享] 二维码很火，分享EXCEL二维码插件。（已追加分享源码）
http://club.excelhome.net/thread-1044486-1-1.html


以上资料希望对您有帮助。