获取使用vba设置超链接时显示的名称

Question

如果要在powerpoint中添加超链接，可以访问它，例如右键单击所需的形状，然后选择“超链接...”。然后出现此对话框：

正如您所看到的那样，幻灯片名称出现了，但这些幻灯片编号与ActivePresentation.Slides（sliNum）.Name不同。如何通过VBA获取这些名称？

Answer 1

?ActivePresentation.Slides(75).Shapes.Title.Textframe.TextRange.Text

应在您的案例中返回营销计划概述

Answer 2

如果找不到标题，则此接缝为幻灯片索引和标题形状文本或幻灯片名称：

Function SlideTitle(ByVal Slide As Slide) As String
    If Slide.Shapes.HasTitle Then
         SlideTitle = Slide.SlideIndex & ". " & Slide.Shapes.Title.TextFrame.TextRange.Text
    Else
         SlideTitle = Slide.SlideIndex & ". " & Slide.Name
    End If
End Function