Answer: Add Hyperlink to Text in Powerpoint

Instead I would like to add the hyperlink to the actual text not the frame.

Is this you want?

Sub Add_Hyperlink_to_Text_in_Powerpoint()
    Dim sh As PowerPoint.Shape, pp As Presentation
    Const leftcm As Single = 0, topcm As Single = 0 'just for test
    Set pp = ActivePresentation
    
    Set sh = pp.Slides(1).Shapes.AddShape(Type:=msoShapeRectangle,