求助：PPT内用VBA做文本框到幻灯片的超链接

sd159

问题：在幻灯片的第二页有5个文本框，分别链接到第六到第十个幻灯片，一个文本框对应一个幻灯片。网上找了好多资料，不得要领，求高手帮忙！

sd159

不能沉了呀！

sd159

已初步解决，只是建立超链接后文本框中数字有下划线，手动建立的超链接没有。谁有办法解决？

Sub Hyper()  '建立超链接
    Dim t As TextFrame
    Dim pptpres As Presentation
    Dim i As Integer
   For i = 1 To 5
    Set pptpres = ActivePresentation
    Set t = pptpres.Slides(1).Shapes(i + 1).TextFrame
    With t.TextRange.ActionSettings(ppMouseClick).Hyperlink
        '.TextToDisplay = "Link to Slide"
        .SubAddress = pptpres.Slides(i + 1).SlideNumber & "." & pptpres.Slides(i + 1).Name
    End With
    Next i
End Sub

sd159

上一个和所述稍有出入。
Sub Hyper()  '建立超链接
    Dim t As TextFrame
    Dim pptpres As Presentation
    Dim i As Integer
   For i = 1 To 6
    Set pptpres = ActivePresentation
    Set t = pptpres.Slides(2).Shapes(i).TextFrame
    With t.TextRange.ActionSettings(ppMouseClick).Hyperlink
        '.TextToDisplay = "Link to Slide"
        .SubAddress = pptpres.Slides(i + 2).SlideNumber & "." & pptpres.Slides(i + 2).Name
    End With
    Next i
End Sub

sd159

Sub Hyper()  '建立超链接
    Dim t As TextFrame
    Dim pptpres As Presentation
    Dim i As Integer
   For i = 1 To 5
    Set pptpres = ActivePresentation
    Set t = pptpres.Slides(2).Shapes(i).TextFrame
    With t.TextRange.ActionSettings(ppMouseClick).Hyperlink
        '.TextToDisplay = "Link to Slide"
        .SubAddress = pptpres.Slides(i + 2).SlideNumber & "." & pptpres.Slides(i + 2).Name
    End With
    Next i
End Sub