Hyperlink issue when converting a file from 2003 to 2007

  • Thread starter Thread starter Derrick
  • Start date Start date
D

Derrick

Whenever I create a file in PPT 2007 and set it up in Kiosk mode where on teh
hyperlinks can advance the slide to the predetermined slide via hyperlink I
am having a problem when I "Save As" 2003. I reopen the file on my second PC
or any other PC that has 2003 on it and all the Hyperlinks are damaged and
don't link to their original destination. Once I go back to the original
document that created the Save As file (I didnt rename it) I lose all the
links to the orignal as well. The 2007 version after savign mimics the
errors created in the 2007 file.
Also as an FYI there are no Adapt imaging issues (all files that are image
based have been *Paste special as a windows enhanced file so I wouldnt get
the error when trying to save the file about possible data loss due to 2007
to 2003 conversion
 
There are 70 slides - with no punction in headers and most slides have 2 - 3
hyperlinks per slide. A few slides have 8 links at most. I basically set the
power point up to function like a website where it moves from slide to slide
based on what you click. Depending on what your looking for you may never
see all 70 slides.
 
Lucy & Steve thanks,
I looked up the information for the link you provided Lucy and I am not an
VBA coder, but I am able to insert the code below, but I dont know how to
modify the code to have it point to a particular slide in my presentation.
If I can figure this out then I can create multiple modules (approx: 100) and
modify them all to point to a particular slide not Hyperlink to avoid issues
with losing hyperlinks everytime I change the presentation. The use of
action buttons per each graph, picture, etc and assigning them a VBA function
prevents hyperlink issues and gives me the option to control them better.

Option Explicit

Sub Fission(oBoom As Shape)
Dim vSaved As Boolean
vSaved = ActivePresentation.Saved

On Error Resume Next

With oBoom.ActionSettings(ppMouseClick)
.Hyperlink.Address = "http://" & _
oBoom.TextFrame.TextRange.Text
.Hyperlink.Follow
.Hyperlink.Delete
.Run = "Fission"
.Action = ppActionRunMacro
End With

ActivePresentation.Saved = vSaved

End Sub
 
Back
Top