Как открыть ссылку / URL-адрес автоматически из PowerPoint? - PullRequest
1 голос
/ 07 января 2020

У меня есть ссылка / URL-адрес в PPT, и я хочу открыть его, когда слайд появляется и без какого-либо нажатия на него. Является ли это возможным? Спасибо

Ответы [ 2 ]

1 голос
/ 07 января 2020

Microsoft PowerPoint запускает событие OnSlideShowPageChange() для каждого слайда, который отображается во время показа слайдов. Вы можете использовать это средство для вызова любого макроса, когда отображаются определенные слайды. PowerPoint передает ссылку на SlideShowWindow в качестве параметра события OnSlideShowPageChange().

Я предполагаю, что у вас есть гиперссылка на слайде 2. Итак, скопируйте следующий код в модуле VBA:

' --- The following macro displays a message when the second slide is shown.
' --- You are asked to open or not to open the link.
' --- The first link on slide 2 is opened when you click the OK button.

Sub OnSlideShowPageChange(ByVal SSW As SlideShowWindow)
    If SSW.View.CurrentShowPosition = 2 Then
        MsgBox "Second slide in the slide show"
        result = MsgBox("Open URL?", vbOKCancel)
        If result = vbOK Then
            ActivePresentation.Slides(2).Hyperlinks(1).Follow
        End If
    End If
End Sub

Конечно, вы можете удалить ненужные строки кода, чтобы перешагнуть через сообщение и вопрос.

1 голос
/ 07 января 2020

Нет "легкого" способа сделать это. Когда вы пытаетесь достичь чего-то нестандартного в Office, вы должны использовать VBA.

Эта строка кода должна помочь вам:

ActivePresentation.Slides(1).Hyperlinks(1).Follow

Если вы не знакомый с использованием VBA в Ppt, я бы посоветовал взглянуть на руководства, их много в сети:)

Надеюсь, это поможет! Хорошего дня

...