Excel VBA批量将网络图片添加为单元格批注求助

以下是可直接运行的VBA代码，实现将A列产品编号对应的网络图片添加为单元格批注，并支持固定批注框尺寸：

Sub AddImageToComments()
    Dim ws As Worksheet
    Dim cell As Range
    Dim imgURL As String
    Dim tempPath As String
    Dim commentObj As Comment
    Dim imgObj As Object
    
    ' 指定目标工作表，可修改为具体表名如Sheets("产品列表")
    Set ws = ActiveSheet
    
    ' 临时图片存储路径，自动使用系统临时文件夹
    tempPath = Environ("TEMP") & "\temp_product_img.jpg"
    
    ' 遍历A列非空单元格（从A2开始，若A1是数据则改为A1）
    For Each cell In ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
        If cell.Value <> "" Then
            ' 拼接完整图片URL
            imgURL = "https://www.website.com/picture/" & cell.Value & ".jpg"
            
            ' 清除单元格已有批注
            If Not cell.Comment Is Nothing Then
                cell.Comment.Delete
            End If
            
            ' 创建新批注
            cell.AddComment
            Set commentObj = cell.Comment
            
            ' 设置批注固定尺寸（宽200磅、高150磅，可自行修改）
            With commentObj.Shape
                .Width = 200
                .Height = 150
            End With
            
            ' 下载网络图片到临时文件
            On Error Resume Next
            Set imgObj = CreateObject("MSXML2.XMLHTTP")
            imgObj.Open "GET", imgURL, False
            imgObj.Send
            
            If imgObj.Status = 200 Then
                Open tempPath For Binary As #1
                Put #1, , imgObj.responseBody
                Close #1
                
                ' 将图片插入批注背景
                commentObj.Shape.Fill.UserPicture tempPath
            Else
                ' 图片加载失败时显示提示
                commentObj.Text Text:="图片加载失败"
            End If
            On Error GoTo 0
            
            Set imgObj = Nothing
        End If
    Next cell
    
    ' 清理临时图片文件
    On Error Resume Next
    Kill tempPath
    On Error GoTo 0
    
    MsgBox "批注添加完成！"
End Sub

关键说明 #

1. 临时文件处理：批注无法直接加载网络图片，代码会先将图片下载到系统临时文件夹，使用后自动删除，避免残留文件
2. 尺寸自定义：修改.Width和.Height的数值即可调整批注框大小，单位为磅
3. 错误兼容：如果图片地址无效或网络问题，批注会显示"图片加载失败"，不会中断整个程序
4. 范围调整：若A1是数据行，将代码中的A2改为A1即可

使用步骤 #

1. 打开目标Excel文件，按Alt+F11打开VBA编辑器
2. 插入新模块：右键点击左侧工程窗口的工作表名称 → 插入 → 模块
3. 将上述代码粘贴到模块中
4. 修改图片URL的域名和路径为实际地址，调整批注尺寸（可选）
5. 按F5运行代码，或回到Excel界面通过开发工具→宏执行

内容的提问来源于stack exchange，提问作者Pawel