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, 

 
    
Top comments (0)