共用方式為

PowerPoint) (Hyperlinks 物件

  • 發行項

投影片或母片上所有 Hyperlink 物件的集合。

範例

使用超連結屬性可傳回 Hyperlinks 集合。 下列範例會更新已指定的地址在使用中簡報的投影片上所有超連結。

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屬性來建立超連結，並將其新增至 Hyperlinks 集合。 下列範例會設定當使用者按一下 [在投影片放映期間的使用中簡報的投影片上第三個圖案並將新的超連結新增至集合時將後面的超連結。 請注意是否第三個圖案已經定義的按滑鼠動作超連結，下列範例會將此超連結從集合中刪除它將新的其中一個，因此 Hyperlinks 集合中的項目數也不會變更時。

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

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

End With

另請參閱

PowerPoint 物件模型參考資料

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。