TPE
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