TPE

http://bayanbox.ir/view/263405954590585756/2mobile.png

Tavvafi@gmail.com


≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub FixUpOOLinks()

    Dim osh As Shape
    Dim oSl As Slide

    For Each oSl in ActivePresentation.Slides
    For Each osh In oSl.Shapes
        If Len(osh.ActionSettings(1).Hyperlink.SubAddress) > 0 Then
            With osh.TextFrame.TextRange
                .ActionSettings(1).Hyperlink.Address = _
                osh.ActionSettings(1).Hyperlink.Address
                .ActionSettings(1).Hyperlink.SubAddress = _
                osh.ActionSettings(1).Hyperlink.SubAddress
            End With
            osh.ActionSettings(1).Hyperlink.Delete
        End If
    Next    ' Shape
    Next    ' Slide
End Sub