Reply
 
LinkBack Thread Tools Search this Thread Display Modes
  #1   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 11
Default Reset Followed Hyperlinks

I've created a Jeopardy game, and the cells that have the dollar
values are hyperlinked to another sheet with that specific answer in
it. I've edited the style of followed hyperlinks to be blue,
basically blank after followed. At the end of the game, or anytime
for that matter, I would like to have a macro that resets the followed
hyperlinks back to their original "un"followed color.

Also, if anyone knows where I could post this file once completed, I
believe it may work well for others. I've found similar Jeopardys as
powerpoints and such, but this one uses buttons and calculates score
totals for each player. The only thing it lacks is Daily Doubles
popups and answers, but i'm sure someone can fill that in.

Thanks-
  #2   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 206
Default Reset Followed Hyperlinks

Here's a code found at AllExperts, the expert being Damon
Ostrander......

Sub RefreshHlinks()

'Refreshes all hyperlinks on the active worksheet

Dim Hcount As Integer
Dim CellLoc() As Range
Dim HlinkAddress() As String
Dim HlinkSubAddress() As String
Dim i As Integer

With ActiveSheet.Hyperlinks

Hcount = .Count
ReDim CellLoc(Hcount)
ReDim HlinkAddress(Hcount)
ReDim HlinkSubAddress(Hcount)

'Save hyperlink addresses
For i = 1 To Hcount
Set CellLoc(i) = .Item(i).Range
HlinkAddress(i) = .Item(i).Address
HlinkSubAddress(i) = .Item(i).SubAddress
Next i

..Delete 'deletes all hyperlinks on sheet

'Restore all hyperlinks
For i = 1 To Hcount
If HlinkSubAddress(i) = "" Then
..Add CellLoc(i), HlinkAddress(i)
Else
..Add CellLoc(i), HlinkAddress(i), HlinkSubAddress(i)
End If
Next i
End With

End Sub

  #3   Report Post  
Posted to microsoft.public.excel.programming
external usenet poster
 
Posts: 206
Default Reset Followed Hyperlinks


Also, if anyone knows where I could post this file once completed, I
believe it may work well for others. *I've found similar Jeopardys as
powerpoints and such, but this one uses buttons and calculates score
totals for each player. *The only thing it lacks is Daily Doubles
popups and answers, but i'm sure someone can fill that in.

I see you are on Gmail,
You can create your own google site and store files on it, then attach
a link to the file in your post, for example.

Here is a link the the WorkBook RefreshHyperlinks
http://sites.google.com/site/davesex...attredirects=0
Reply
Thread Tools Search this Thread
Search this Thread:

Advanced Search
Display Modes

Posting Rules

Smilies are On
[IMG] code is On
HTML code is Off
Trackbacks are On
Pingbacks are On
Refbacks are On


Similar Threads
Thread Thread Starter Forum Replies Last Post
Hyperlinks: Hyperlinks change on copy/paste? Rick S. Excel Worksheet Functions 0 November 13th 07 08:19 PM
Update 2000 Excel hyperlinks to 2003 hyperlinks lonv155 Excel Worksheet Functions 4 October 25th 07 05:51 AM
How toi turn-off hyperlinks [excel]? Email hyperlinks pop up ! jacob735 Excel Discussion (Misc queries) 1 June 22nd 07 12:57 AM
reset cell.Hyperlinks.Count to 0 John Smith Excel Programming 1 October 27th 06 02:56 AM
Excel Hyperlinks- cell content v. hyperlinks herpetafauna Excel Discussion (Misc queries) 2 May 23rd 06 04:39 AM


All times are GMT +1. The time now is 11:45 PM.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
Copyright ©2004-2025 ExcelBanter.
The comments are property of their posters.
 

About Us

"It's about Microsoft Excel"