vba - 取用 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