VBA将.bmp图像插入工作表

我目前正在做一项看似简单的任务，即使用VBA将在线图片插入excel。我在网上找到了这样的例子，它们可以从网上插入.jpg，但是当我尝试插入下面所示的特定.bmp链接时，会收到一个“400”错误。是否存在.bmp格式的问题或可能的超时问题？如有任何想法，将不胜感激

Sub Insert_Picture()

  Dim pic As String 'file path of pic
  Dim myPicture As Picture 'embedded pic

  pic = "http://172.20.100.224/www/screenshot.bmp"

  Set myPicture = ActiveSheet.Pictures.Insert(pic)

End Sub

---

错误说了什么？错误什么也没说。弹出一个典型的错误框，里面有400个。嗨，我已经测试了你的代码，红外效果很好。你确定你的url是正确的吗？似乎在该url上找不到图像。很好，luckI已经在其他url上用这段代码测试过了，它也能工作。只是不适合这个。链接在VBA代码之外工作，但有一点加载时间。这可能与找不到图像有关吗？因为它花费的时间太长了？