PowerPoint VBA教程:Hyperlinks集合对象

   
多个对象
Hyperlinks
Hyperlink

幻灯片或母版中所有Hyperlink对象的集合。

使用 Hyperlinks集合

使用Hyperlinks属性返回 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 = "http://www.microsoft.com"
End With

上页:PowerPoint VBA教程:Hyperlink对象 下页:PowerPoint VBA教程:LineFormat对象

PowerPoint VBA教程:Hyperlinks集合对象

PowerPoint VBA教程:LineFormat对象 PowerPoint VBA教程:LinkFormat对象
PowerPoint VBA教程:Master对象 PowerPoint VBA教程:MotionEffect对象
PowerPoint VBA教程:NamedSlideShow对象 PowerPoint VBA教程:NamedSlideShows集合对象
PowerPoint VBA教程:ObjectVerbs对象 PowerPoint VBA教程:OLEFormat对象
PowerPoint VBA教程:Options对象 PowerPoint VBA教程:PageSetup对象
PowerPoint VBA教程:Pane对象 PowerPoint VBA教程:Panes集合对象
PowerPoint VBA教程:ParagraphFormat对象 PowerPoint VBA教程:PictureFormat对象
PowerPoint VBA教程:PlaceholderFormat对象 PowerPoint VBA教程:Placeholders集合对象
PowerPoint VBA教程:PlaySettings对象 PowerPoint VBA教程:Presentation对象
PowerPoint VBA教程:Presentations集合对象 PowerPoint VBA教程:PrintOptions对象
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号