Sub dslkj()

For Each sl In ActivePresentation.Slides

For i = 1 To sl.Shapes.Count

If sl.Shapes.Item(i).Type = msoLinkedOLEObject Then

Debug.Print sl.Name & "-" & i & "-" & sl.Shapes.Item(i).Name & " - " & sl.Shapes.Item(i).LinkFormat.SourceFullName

' sl.Shapes.Item(i).LinkFormat.SourceFullName = Replace(sl.Shapes.Item(i).LinkFormat.SourceFullName, "xlsx", "xlsm")

If sl.Name = "Slide401" Then

If i = 1 Then

Set ff = sl.Shapes.Item(i)

Stop

ff.LinkFormat.SourceFullName = "X:\Path\name.xlsx!Область_печати"

End If

End If

End If

Next i

Next

End Sub