Im auf der Suche nach Hilfe, da ich eine Menge Links habe, um zu überprüfen, ob der Link defekt ist. Ich habe das folgende Makro ausprobiert, aber es funktioniert zweimal. Danach funktioniert es nicht mehr. Ich benutze MS Office 10 64-Bit, das ich hinzufügen möchte Das Makro if-Makro kann die Bildauflösung überprüfen. Wenn Sie beispielsweise eine URL in Spalte A einfügen, werden die defekten Links hervorgehoben. In Spalte B wird die Bildauflösung angezeigt.

Sub Audit_WorkSheet_For_Broken_Links()

If MsgBox("Is the Active Sheet a Sheet with Hyperlinks You Would Like to Check?", vbOKCancel) = vbCancel Then

    Exit Sub

End If

On Error Resume Next
For Each alink In Cells.Hyperlinks
    strURL = alink.Address

    If Left(strURL, 4) <> "http" Then
        strURL = ThisWorkbook.BuiltinDocumentProperties("Hyperlink Base") & strURL
    End If

    Application.StatusBar = "Testing Link: " & strURL
    Set objhttp = CreateObject("MSXML2.XMLHTTP")
    objhttp.Open "HEAD", strURL, False
    objhttp.Send

    If objhttp.statustext <> "OK" Then

        alink.Parent.Interior.Color = 255
    End If

Next alink
Application.StatusBar = False
On Error GoTo 0
MsgBox ("Checking Complete!" & vbCrLf & vbCrLf & "Cells With Broken or Suspect Links are Highlighted in RED.")

End Sub