Excel 2016で画像のURLの検証を行う方法は？

Question

報告される方法はありますか？イメージURLが404エラーを出した場合、Excelで有効または無効ですか？
各画像を開く必要はありませんか？例えば404のヘッダーをチェックする？

は、ここで私はすべてのURLに

Public Function IsURLGood(url As String) As Boolean 
    Dim request As New WinHttpRequest 

    On Error GoTo IsURLGoodError 
    request.Open "HEAD", url 
    request.Send 
    If request.Status = 200 Then 
     IsURLGood = True 
    Else 
     IsURLGood = False 
    End If 
    Exit Function 

IsURLGoodError: 
    IsURLGood = False 
End Function 

これらのレポート

Function URLExists(url As String) As Boolean 
    Dim Request As Object 
    Dim ff As Integer 
    Dim rc As Variant 

    On Error GoTo EndNow 
    Set Request = CreateObject("WinHttp.WinHttpRequest.5.1") 

    With Request 
     .Open "GET", url, False 
     .Send 
     rc = .StatusText 
    End With 
    Set Request = Nothing 
    If rc = "OK" Then URLExists = True 

    Exit Function 
EndNow: 
End Function 

を試してみた、私のために、TRUEいくつかのスニペットです。私は、例えば

http://www.bangallawebservices.com/images/BWA22055.jpg 

をチェックすると、これらは間違いなく戻り値の望ましくない結果を与えている、上記画像は、これらのコードスニペットを介してExcelで有効なURLとしてカウントされてい404エラーの一例です。

私はまた、いくつかは、実際に壊れているとき（壊れていない）すべての偽返さpwrISBROKENURLで、Officeのパワーアップアドインの無料デモを試してみました。 Excelにはファイアウォールを介してインターネットへのフルアクセス権が与えられます。 https://www.youtube.com/watch?v=HU99-fXNV40

Answer 1

これは私に役立ちます。

Public Function IsURLGood(url As String) 
    Dim request As Object 
    Set request = CreateObject("WinHttp.WinHttpRequest.5.1") 
    On Error GoTo haveError 
    With request 
     .Open "HEAD", url 
     .Send 
     IsURLGood = .Status 
    End With 
    Exit Function 
haveError: 
    IsURLGood = Err.Description 
End Function 

クイックテスト：

EDIT：代わりに

実行中に存在する場合には、ブールが、実際の状況やエラーの説明を返しません。これをUDFとして実行するには、これを行うことができます：

Sub ProcessUrls() 
    Dim c As Range 
    For Each c in Activesheet.Range("A1:A20000").Cells 
     c.Offset(0, 1).Value = IsURLGood(c.Value) 'put result in ColB 
    Next c 
End sub