Printing Screen Tips (2003)

[skinsgamer]

Okay, now that I know how to use the screen tips to display. Is there a way to print them with there associated link? ie..."name" linked to screen tip "phone number". The idea being I want to create a 1 slide presentation with several persons names on it, each with a screen tip you can hover on and see there contact info. I'd like to go one step further and be able to print hard copy that has the main slide and a second page with the name and contact info associated. Not sure if this is feasible, if not I can use the notes page to add data manually.

[HansV]

I'd go with the notes page, for I don't think that PowerPoint provides a way to print screentips.

[JohnWilson]

Some vba to try:

Dim osld As Slide
Dim oshp As Shape
Sub tips()
Call zapper
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.ActionSettings(ppMouseClick) _
.Hyperlink.ScreenTip <> "" Then
With osld.Shapes.AddShape(msoShapeRectangle, oshp.Left + oshp.Width / 2 _
, oshp.Top + oshp.Height, 200, 20)
.TextFrame.TextRange = oshp.ActionSettings(ppMouseClick).Hyperlink.Screen Tip
.TextFrame.TextRange.Font.Size = 10
.Fill.ForeColor.RGB = RGB(255, 242, 148)
.TextFrame.AutoSize = ppAutoSizeShapeToFitText
.Tags.Add "screeny", "Yes"
.TextFrame.TextRange.Font.Color = vbBlack
.Line.Visible = False
End With
End If
Next oshp
Next osld
End Sub
Sub zapper()
For Each osld In ActivePresentation.Slides
For Each oshp In osld.Shapes
If oshp.Tags("screeny") = "Yes" Then oshp.Delete
Next oshp
Next osld
End Sub

Help on PowerPoint vba : http://www.pptalchemy.co.uk/powerpoint_hin...orials.html#vba