求助VBA网址路径导图到批注或单元格的方法

soulcolor

不带图源，到任何一台电脑上都可以执行代码获取图片
Sub 图片()

    Sheets("sheet1").Activate
    Range("A1").Select
    Selection.ClearComments

On Error Resume Next
   For Each c In Selection
   With c.AddComment(Text:=c.Value)
   .Shape.Width = 300
  .Shape.Height = 400
  .Visible = False
   .Shape.Fill.UserPicture "https://coms.igreat-smart.com/attachment/view/item/" & c.Value & "?tenantId=A0000001?tenantId=A0000001.jpg"
End With
If Err <> 0 Then
        c.Comment.Delete
      Err.Clear
  End If
Next
End Sub


求这个是图片的路径，我想自己弄一个这样的网络路径导图片，不知道是通过什么方式实现
https://coms.igreat-smart.com/attachment/view/item/" & c.Value & "?tenantId=A0000001?tenantId=A0000001.jpg