• Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 278
  • Last Modified:

Hyperlinked text -- Refreshing the hyperlink to its original state/colour after it's activated

Hi Experts,

I have hyperlinked text in my presentation which link to different slides.

When I click on the hyperlinked texts, the text changes colour and goes to the appropriate slide.

How can I edit my powerpoint so that whenI finish my presentation, the activated hyperlinked texts goes back to it's original colour/state before I clicked on it?

Thanks for your help.

0
rav_rav
Asked:
rav_rav
  • 2
  • 2
  • 2
1 Solution
 
sekrinCommented:
The easiest way to do this would be to simply set the followed hyperlink colour to be the same as the ordinary hyperlink colour.

I'm not sure how to do this in PP 2002 as I only have 2007 at my current computer, but a search for "Customize Theme" in the Help should set you on the right track.
0
 
Echo_SCommented:
Save and close the file. The links should be back to their normal color the next time you open the file.
0
 
rav_ravAuthor Commented:
Hey Folks,

Thanks for the input.

Serkin:  I am using the hyperlinks as part of a jeopardy game.  Thus, while I am playing the game, I want to see which links have been selected already.  

Echo_S:  I realized the option about Saving and Closing the file but I wanted to reset the links without doing that.
0
Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

 
Echo_SCommented:
Sorry, there's no other way to reset the links--at least, none that I'm aware of.
0
 
sekrinCommented:
There may (or may not) be a proper way of doing this, however, if you can add a button or something to the last slide and have that button run the code in the attached snippet, you should find the hyperlinks are all back to their original glory.
Sub ResetHyperlinks()
Dim intSlide As Integer
Dim intHyperlink As Integer
 
For intSlide = 1 To ActivePresentation.Slides.Count
    For intHyperlink = 1 To ActivePresentation.Slides(intSlide).Hyperlinks.Count
        ActivePresentation.Slides(intSlide).Hyperlinks(intHyperlink).Address = ActivePresentation.Slides(intSlide).Hyperlinks(intHyperlink).Address
    Next
Next
End Sub

Open in new window

0
 
rav_ravAuthor Commented:
Thanks sekrin.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

  • 2
  • 2
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now