求助解决批量插入不同图片的批注

q05312

Sub 批量()
    Dim cell As Range, fd, t
    Selection.ClearComments
    If Selection(1) = "" Then MsgBox "不能选择空白区。", 64, "提示": Exit Sub
    On Error GoTo err
    Set fd = Application.FileDialog(msoFileDialogFolderPicker)    '允许用户选择一个文件夹
    If fd.Show = -1 Then
        t = fd.SelectedItems(1)    '选择之后就记录这个文件夹名称
    Else
        Exit Sub    '否则就退出程序
    End If
    For Each cell In Selection
        With cell.AddComment
            .Visible = True
            .Text Text:=""
            .Shape.Select True
            Selection.ShapeRange.Fill.UserPicture t & "\" & cell.Text & ".jpg"
            cell.Offset(1, 0).Select
            .Visible = False
        End With
    Next
    Exit Sub
err:
    ActiveCell.ClearComments
    MsgBox "未找到同名的JPG图片！", 64, "提示"
End Sub
Private Sub 添加_Click()
End Sub
Private Sub CommandButton1_Click()
End Sub


请各位修改下以上这个代码，使之能够解决：1、不用严格匹配图片名字，只要单元格数字序号与图片序号能对应就可以。2、第一个单元格字符与图片中都不对应时，继续运行而不中断。3、中间有单元格空白或字符不对应图片时也不中断。4、全部插完后给个提示，共计还有几个没有匹配到图片的单元格并且给出这些单元格行列号。灰常3Q3Q!

q05312

能否再解决下批注右上角红三角？要么不显示，这个不显示不是取消，是右上角看不出来但只要鼠标滑过就能看到批注图片。要么显示色与单元格颜色相同，比如白色。