可通过ActiveX控件+第三方COM插件（如QRCode Generator Pro）或纯VBA调用GDI API实现Excel中输入文本自动生成二维码图片，需启用开发工具、引用类型库、编写Worksheet_Change事件代码，并配置宏信任与权限。
如果您在Excel中希望用户输入文本后自动在指定单元格位置生成对应二维码图片，可借助ActiveX控件结合第三方COM插件（如QRCoder COM封装或Barcode ActiveX控件）实现动态渲染。以下是具体操作步骤：
一、启用开发者选项并插入ActiveX控件
需先在Excel中激活“开发工具”选项卡，并通过插入ActiveX控件承载二维码生成逻辑。该控件将作为二维码图像的容器与事件触发入口。
1、点击“文件”→“选项”→“自定义功能区”，勾选“开发工具”，点击“确定”。
2、切换至“开发工具”选项卡，点击“插入”→“ActiveX控件”区域中的“更多控件”按钮（图标为齿轮加文档）。
3、在弹出列表中查找并选中“Microsoft Image Control”或已注册的二维码专用COM控件（如“QRCode Generator Pro.Control”），点击“确定”。
4、在工作表中拖拽绘制控件区域，右键该控件→“属性”，将Visible设为False，Enabled设为True，记录其Name（如Image1）。
二、引用二维码生成COM插件库
必须在VBA工程中引用支持二维码生成的已安装COM组件，否则ActiveX控件无法调用编码与绘图功能。该引用是后续调用CreateQRCode等方法的前提。
1、按Alt + F11打开VBA编辑器，点击“工具”→“引用”。
2、在引用对话框中滚动查找并勾选“QRCode Generator Pro Type Library”（名称依实际安装插件而定，常见还有“BarCodeX ActiveX Control”）。
3、若列表中未出现，点击“浏览”，定位到插件安装目录下的.tlb或.ocx文件（如C:\Program Files\QRCodePro\QRCoder.tlb）手动添加。
4、确认引用后关闭对话框，返回VBA编辑器。
三、编写Worksheet_Change事件触发二维码生成
通过监听目标单元格（如A1）内容变更，调用COM对象生成二维码位图，并赋值给Image控件的Picture属性，实现输入即渲染。
1、在VBA编辑器左侧工程资源管理器中，双击对应工作表（如Sheet1）。
2、在代码窗口顶部下拉框选择“Worksheet”，再选择“Change”事件。
3、输入以下代码（以A1为输入源、Image1为显示控件为例）：
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
On Error Resume Next
Dim qr As Object
Set qr = CreateObject("QRCodePro.Generator")
If Not qr Is Nothing Then
qr.Text = Target.Value
qr.Size = 300
qr.Margin = 5
Me.Image1.Picture = qr.GeneratePicture
End If
End If
End Sub
四、使用纯VBA+GDI API替代方案（免插件）
若无法部署第三方COM插件，可采用纯VBA调用Windows GDI API绘制二维码图形，依赖ZXing.Net.Core的VB.NET互操作封装或预编译DLL注入方式实现离线生成。
1、下载已编译的QrCodeVba.dll（含导出函数CreateQrFromText），注册为系统级COM组件（管理员权限运行regsvr32 QrCodeVba.dll）。
2、在VBA引用中添加对该DLL的类型库引用（同第二步）。
3、修改事件代码中对象创建语句为：Set qr = CreateObject("QrCodeVba.QRCodeGenerator")。
4、确保目标单元格输入内容长度不超过插件支持上限（如最大4296字符（UTF-8）），超长时触发Err.Number = 1001错误。
五、调试与权限适配
ActiveX控件在受保护视图或宏禁用状态下无法运行，必须配置信任中心策略与数字签名验证路径，否则图像不刷新且无报错提示。
1、进入“文件”→“选项”→“信任中心”→“信任中心设置”→“宏设置”，选择“启用所有宏”（仅限可信环境）。
2、在“受保护视图”设置中取消勾选“为来自Internet的文件启用受保护视图”及“为位于可能不安全位置的文件启用受保护视图”。
3、保存文件为启用宏的格式（.xlsm），关闭并重新以管理员身份运行Excel。
4、首次运行时若弹出ActiveX安全警告，点击“允许”并勾选“不再对此控件显示此消息”。
