Sharepointte bulunan resmi image yüklemek

[vivident]

Merhaba

Sharepoint altında bulunan resimlerim var. Bu resimleri excel sayfasında bulunan Image1.Picture yüklemek istiyorum. Sharepointte geçmeden önce resimler C: altında idi. Linki yazdığımda direk resim yükleniyordu. Sharepointte geçince linkleri değiştirsemde yüklenmiyor. Varmıdır bir yolu

Run time error 52
Bad file name or number

Private Sub Worksheet_Activate()
Dim Alan As Range
Dim ResimDosyaYolu As String
Application.Calculation = xlCalculationAutomatic


ResimDosyaYolu = "https://groupe.sharepoint.com/teams/kafa/Deneme/arsiv_foto/" & Sheets("Hesaplama").Range("CC23") & ".JPG"
If Dir(ResimDosyaYolu) <> "" Then
Image1.Picture = LoadPicture("https://groupe.sharepoint.com/teams/kafa/Deneme/arsiv_foto/" & Sheets("Hesaplama").Range("CC23") & ".JPG")
Else
Image1.Picture = LoadPicture("https://groupe.sharepoint.com/teams/kafa/Deneme/arsiv_foto/00000.JPG")
End If
End Sub