使用VBA向PowerPoint中的演讲者备注部分添加超链接和文本

Sub AddHyperlinkToNotes()
    Dim pptApp As Object 'PowerPoint.Application
    Dim pptPres As Object 'PowerPoint.Presentation
    Dim pptSlide As Object 'PowerPoint.Slide
    Dim pptNotes As Object 'PowerPoint.SlideRange
    Dim pptNote As Object 'PowerPoint.Shape
    Dim pptHyperlink As Object 'PowerPoint.Hyperlink
    
    '打开PowerPoint应用程序
    Set pptApp = CreateObject("PowerPoint.Application")
    pptApp.Visible = True '设置PowerPoint可见
    
    '打开演示文稿
    Set pptPres = pptApp.Presentations.Open("演示文稿路径")
    
    '选择要添加超链接的幻灯片
    Set pptSlide = pptPres.Slides(1) '示例选择第一张幻灯片
    
    '选择幻灯片的备注
    Set pptNotes = pptSlide.NotesPage.Shapes
    
    '添加超链接和文本
    Set pptNote = pptNotes.AddTextbox(msoTextOrientationHorizontal, 50, 50, 400, 50)
    pptNote.TextFrame.TextRange.Text = "备注文本"
    
    '添加超链接
    Set pptHyperlink = pptNote.TextFrame.TextRange.Hyperlinks.Add(pptNote.TextFrame.TextRange, "https://www.example.com")
    pptHyperlink.TextToDisplay = "超链接文本"
    
    '保存并关闭演示文稿
    pptPres.Save
    pptPres.Close
    
    '关闭PowerPoint应用程序
    pptApp.Quit
    
    '释放对象
    Set pptHyperlink = Nothing
    Set pptNote = Nothing
    Set pptNotes = Nothing
    Set pptSlide = Nothing
    Set pptPres = Nothing
    Set pptApp = Nothing
End Sub