求助：批量检测超链接本地图片是否存在问题

一个dir搞定

Public Function IsFileExists(ByVal strFileName As String) As Boolean
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
IsFileExists = fs.fileExists(strFileName)
Set fs = Nothing
End Function
Public Function isHyperlinks(rng As Range) As Boolean
Dim str As String
If rng.Hyperlinks.Count = 0 Then isHyperlinks = False: Exit Function
str = rng.Hyperlinks(1).Address
If InStr(str, "\") > 0 And InStr(str, ":") > 0 Then GoTo err
isHyperlinks = IsFileExists(ThisWorkbook.path & "\" & str): Exit Function
err:
isHyperlinks = IsFileExists(str)
End Function
Sub cs()
For Each rg In Range("F1:F2")
Debug.Print IIf(isHyperlinks(Range(rg.Address)), "存在", "不存在")
Next
End Sub