Возьмите имя, которое появляется при установке гиперссылки с помощью vba.

Question

Если вы хотите добавить гиперссылку в powerpoint, вы можете получить к ней доступ, например, щелкнув правой кнопкой мыши нужную фигуру и выбрав "Гиперссылка...". Затем появляется это диалоговое окно:

Как вы можете видеть, появляются названия слайдов, но номера слайдов не совпадают с теми, которые вы можете получить с помощью ActivePresentation.Slides(sliNum).Name. Как я могу получить эти имена с VBA?

Answer 1

Это швы, чтобы быть индексом слайда и текстом формы заголовка или именем слайда, если заголовок не найден:

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

Answer 2

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

Должен вернуть обзор маркетингового плана в вашем случае