Simpel and yet exactely what I was looking for. Thank you
In addition to that I have to related questions that I hope you (or other) can help me with.
1. How can I format the look of these links so they are not just blue and underlined?
2. How do I send a variable with the link to the new sub?
What I mean is if I remove the IF-part so I get a link in every cell, how can I make each link differet? iRow changes for every cell, so I would like this variable to be send to the next sub, depending on wich cell is pressed, and the value used there.
Code:
With .ActionSettings(ppMouseClick)
.Action = ppActionRunMacro
.Run = "GoToSlide(iRow)"
End with
Sub GoToSlide(page as integer)
ActivePresentation.SlideShowWindow.View.GoToSlide (page)
End Sub
the GoToSlide sub is not what I'm going to use later, just to get an idea of how to re-use the variables.
Thanks again
