Sub РазорватьСвязи() '(sTitle As String)
    Dim iSh As InlineShape
    
    With Selection 'ActiveDocument
        For Each iSh In .InlineShapes
            If iSh.Type = wdInlineShapeChart Then
'                If iSh.Chart.HasTitle = True Then
'                    If InStr(1, iSh.Chart.chartTitle.Caption, sTitle, vbTextCompare) Then
                        iSh.LinkFormat.BreakLink
'                    End If
'                End If
'            End If
        Next
    End With
End Sub