Results 1 to 3 of 3
  1. #1
    New Lounger
    Join Date
    Sep 2008
    Posts
    3
    Thanks
    0
    Thanked 0 Times in 0 Posts

    Printing Screen Tips (2003)

    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.

  2. #2
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: Printing Screen Tips (2003)

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

  3. #3
    3 Star Lounger
    Join Date
    Feb 2007
    Location
    Durham, Durham, United Kingdom
    Posts
    286
    Thanks
    0
    Thanked 10 Times in 10 Posts

    Re: Printing Screen Tips (2003)

    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

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •