如何使用PowerPoint VBA执行错误检查以跟踪超链接？

Sub CheckHyperlinks()
    Dim slide As Slide
    Dim shape As Shape
    Dim hyperlink As Hyperlink
    
    For Each slide In ActivePresentation.Slides
        For Each shape In slide.Shapes
            If shape.Type = msoHyperlink Then
                Set hyperlink = shape.Hyperlink
                If hyperlink.Address <> "" Then
                    If Not hyperlink.SubAddress <> "" Then
                        ' 超链接有效
                        Debug.Print "有效超链接：" & hyperlink.Address
                    Else
                        ' 超链接无效
                        Debug.Print "无效超链接：" & hyperlink.Address
                    End If
                End If
            End If
        Next shape
    Next slide
End Sub