copy shapes from Excel to Powerpoint and preserve hyperlinks and tooltips

  • I have created a macro in Excel that add tooltips to shapes (the shapes are areas on a map):

    1. Sub labelshapes()
    2. Dim cll As Range
    3. Dim val As String
    4. For Each cll In ActiveSheet.Range("Y30:Y375")
    5. val = cll.Offset(0, 2)
    6. ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes("Freeform: Shape " + cll), Address:="", ScreenTip:=val
    7. Next cll
    8. End Sub

    I want to be able to transfer the map into powerpoint for a presentation, but when I do the hyperlinks and tooltips are lost.

    Is there a way to do this and retain the tooltips, or alternatively recreate them in powerpoint? (I also noticed that powerpoint gives the shapes new Freeform numbers as well.)

    Many thanks


  • Hi,

    Never had to deal with this issue ...

    But you could probably run a loop dedicated to your hyperlinks and your tooltips ...

    If you feel like saying "Thank You" for the help received, do not hesitate to click the "Like" icon ...just the bottom right corner...:)