Vba 根据日期插入图片

我有7个盒子，我想在每个盒子上插入一张不同的图片，这取决于那天

我在想，是否有可能从当天开始，在接下来的7天内自动更改URL中的日期

Sub foto()

With ActiveSheet.Pictures.Insert("http://www.balbala.com/blabla/20180216/balbla/bla")
    With .ShapeRange
        .LockAspectRatio = msoFalse
        .Width = 290
        .Height = 240
    End With
      .Left = ActiveSheet.Range("F3").Left
      .Top = ActiveSheet.Range("F3").Top
End With

End Sub

---

提前感谢

尝试将列出URL的行更改为以下内容：

With ActiveSheet.Pictures.Insert("http://www.balbala.com/blabla/" & Format(Date(), "yyyymmdd") & "/balbla/bla")

---

在3个月内连续7天进行自动循环是很困难的

Sub foto()
Dim d As Date
Dim sito(0 To 2) As String
Dim SitoFr As String


sito(0) = "http://www.blabla/blab/
sito(1) = "20180217"
sito(2) = "/blabla/blabla/bl.gpg"

SitoFr = sito(0) + sito(1) + sito(2)


With ActiveSheet.Pictures.Insert(SitoFr)
    With .ShapeRange
        .LockAspectRatio = msoFalse
        .Width = 290
        .Height = 240
    End With
      .Left = ActiveSheet.Range("F3").Left
      .Top = ActiveSheet.Range("F3").Top
End With

End Sub