将批量插入批注图片换成指定单元格插入批注图片

Jungle2021

怎么将下面的弹窗选择文件夹自动匹配单元格值换成指定的单元格（比如：B10）插入批注图片（具体路径如：D:\photo\1.png）？
Sub 插入批注()
Dim ss As Range, pz As Comment
Set fso = CreateObject("scripting.filesystemobject")
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show = -1 Then '对话框选择确定返回-l，选择取消返回o
   t = fd.SelectedItems(1) '记录这个文件夹名称
Else
   MsgBox "未选择图片路径，程序结束"
   Exit Sub '否则就退出程序
End If

For Each ss In Selection
   ss.ClearComments
   路径 = t & "\" & ss.Value & ".png"
   If fso.fileexists(路径) Then
       Set pz = ss.AddComment
      pz.Shape.Fill.UserPicture 路径
      pz.Shape.Width = 200
      pz.Shape.Height = 100
   End If
Next ss
End Sub

zjdh

Sub 插入批注2()  '直接在单元格插入图片批注
        Range("B10").ClearComments
        With Range("B10").AddComment
            .Shape.Fill.UserPicture "D:\photo\1.png"
            .Shape.Width = 200
            .Shape.Height = 100
        End With
End Sub

Jungle2021

zjdh 发表于 2024-4-28 16:19
Sub 插入批注2()  '直接在单元格插入图片批注
        Range("B10").ClearComments
        With Range ...

谢谢🙏！！！
谢谢🙏！！！
谢谢🙏！！！