可通过插入ActiveX图像控件、注册二维码COM插件、编写Worksheet_Change事件代码并配置控件属性，在Excel中实现文本输入后自动在指定单元格生成对应二维码图片。
如果您在Excel中希望输入文本后自动在指定单元格位置生成对应二维码图片，可通过插入ActiveX控件并调用外部COM插件（如“QRCode Generator”类库）实现。以下是具体操作步骤：
一、启用开发者选项并插入ActiveX控件
需先确保Excel启用“开发工具”选项卡，并通过插入ActiveX控件承载二维码生成功能。该控件将作为二维码图像的容器与事件触发载体。
1、点击“文件”→“选项”→“自定义功能区”，勾选“开发工具”，点击“确定”。
2、切换至“开发工具”选项卡，点击“插入”→“ActiveX控件”区域中的“更多控件
3、在弹出列表中查找并选择“Microsoft Image Control”，若未列出，需确认系统已注册支持图像显示的ActiveX组件。
4、在工作表中拖拽绘制控件区域，右键该控件→“属性”，将Name属性设为“imgQR”，将Visible属性设为True。
二、注册并引用二维码生成COM插件
需手动注册第三方二维码生成DLL（如QRCoder.dll或商用ActiveX控件），并在VBA工程中添加对其类型库的引用，使VBA可调用其Encode方法。
1、以管理员身份运行命令提示符，执行：regsvr32 "C:\Path\To\QREncoder.ocx"（路径需替换为实际OCX文件位置）。
2、按Alt+F11打开VBA编辑器，点击“工具”→“引用”，勾选已注册的插件条目（例如“QR Code Generator Library”）。
3、若引用列表中无该库，点击“浏览”，定位到对应.tlb或.dll文件并加载。
三、编写Worksheet_Change事件代码绑定输入响应
通过监听目标单元格（如A1）内容变化，触发二维码生成逻辑，并将结果图像载入ActiveX图像控件。此过程绕过Excel原生图形插入限制，直接操作控件Picture属性。
1、在VBA编辑器中双击对应工作表（如Sheet1），粘贴以下代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Me.Range("A1")) Is Nothing Then
If Target.Value "" Then
Dim qr As Object
Set qr = CreateObject("QREncoder.QRCode")
qr.Encode Target.Value, 3, 0
Me.imgQR.Picture = qr.GetPicture
Else
Me.imgQR.Picture = LoadPicture("")
End If
End If
End Sub
四、配置图像控件尺寸与刷新行为
ActiveX图像控件默认不自动缩放图像，需设置Stretch属性为True以适配二维码尺寸；同时需防止因Excel重算或窗口切换导致图像丢失，应补充Paint事件处理。
1、右键图像控件→“属性”，将Stretch属性设为True，SizeMode设为1（fmPictureSizeModeStretch）。
2、在VBA编辑器中为该控件添加Click事件（仅作占位），再添加Paint事件子程序（若控件支持）：
Private Sub imgQR_Paint()
If Not Me.Range("A1").Value = "" Then Exit Sub
Me.imgQR.Picture = LoadPicture("")
End Sub
五、测试与权限确认
Excel默认禁用未签名ActiveX控件及外部COM调用，需调整信任中心设置以允许运行。否则将出现“无法创建对象”或“自动化错误”提示。
1、点击“文件”→“选项”→“信任中心”→“信任中心设置”→“宏设置”，选择“启用所有宏”（仅限可信环境）。
2、返回“信任中心设置”→“ActiveX设置”，选择“启用所有控件，不提示”（生产环境应使用数字签名替代）。
3、在A1单元格输入“https://example.com”，观察imgQR控件是否即时显示对应二维码图像。
