Поделиться через

Объект Hyperlinks (PowerPoint)

  • Статья

Коллекция всех объектов гиперссылки на слайде или образце.

Пример

Используйте свойство Hyperlinks, чтобы вернуть коллекцию Hyperlinks . В следующем примере обновляются все гиперссылки на слайде 1 в активной презентации с указанным адресом.

For Each hl In ActivePresentation.Slides(1).Hyperlinks

    If hl.Address = "c:\current work\sales.ppt" Then

        hl.Address = "c:\new\newsales.ppt"

    End If

Next

Используйте свойство Hyperlink, чтобы создать гиперссылку и добавить ее в коллекцию Гиперссылки . В следующем примере устанавливается гиперссылка, которая будет следовать, когда пользователь щелкает фигуру три на слайде в активной презентации во время слайд-шоу, и добавляет новую гиперссылку в коллекцию. Обратите внимание, что если в третьей фигуре уже определена гиперссылка с щелчком мыши, в следующем примере эта гиперссылка будет удалена из коллекции при добавлении новой, поэтому количество элементов в коллекции Гиперссылки не изменится.

With ActivePresentation.Slides(1).Shapes(3) _
        .ActionSettings(ppMouseClick)

    .Action = ppActionHyperlink
    .Hyperlink.Address = "https://www.microsoft.com"

End With

См. также

Справочник по объектной модели PowerPoint

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.