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):

Sub labelshapes()
    Dim cll As Range
    Dim val As String
    For Each cll In ActiveSheet.Range("Y30:Y375")
      val = cll.Offset(0, 2)
    ActiveSheet.Hyperlinks.Add Anchor:=ActiveSheet.Shapes("Freeform: Shape " + cll), Address:="", ScreenTip:=val
    Next cll
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

Rob