|
|
一、Hyperlink 对象
代表与非占位符形状或文本相关联的超链接。可以使用超链接跳转到一个 Internet 或 Intranet 站点、另一个文件或当前演示文稿中的一张幻灯片上。Hyperlink 对象是 Hyperlinks 集合的成员。Hyperlinks 集合包含幻灯片或母版中的所有超链接。
使用 Hyperlink 对象
使用 Hyperlink 属性返回形状的超链接。一个形状可以被赋予两种不同的超链接：一种在幻灯片放映中用户单击该形状时响应，另一种在幻灯片放映中用户将鼠标移过形状时响应。要使超链接在幻灯片放映中激活，必须将 Action 属性设为 ppActionHyperlink。以下示例设置单击当前演示文稿第一张幻灯片的第三个形状时，连接到 Internet 上。
With ActivePresentation.Slides(1).Shapes(3).ActionSettings(ppMouseClick)
.Action = ppActionHyperlink
.Hyperlink.Address = "http://www.dzwebs.net"
End With
一张幻灯片可以包含多个超链接。每个非占位符形状都可以有一个超链接；形状中的文本也可以有自己的超链接；而且每个单独的字符也可以有自己的超链接。使用 Hyperlinks(index) 可返回单个 Hyperlink 对象，其中 index 表示超链接编号。以下示例可以将第三个形状的鼠标单击超链接添加到“收藏夹”文件夹。
ActivePresentation.Slides(1).Shapes(3) .ActionSettings(ppMouseClick).Hyperlink.AddToFavorites
注意 在使用本方法向 Microsoft Internet Explorer 的“收藏夹”文件夹中添加超链接时，会向“收藏”菜单中添加一个图标，但并没有相应的名称。必须在 Internet Explorer 中为其添加名称。
二、Hyperlinks 集合对象
幻灯片或母版中所有 Hyperlink 对象的集合。
使用 Hyperlinks 集合
使用 Hyperlinks 属性返回 Hyperlinks 集合。以下示例更新当前演示文稿第一张幻灯片中所有指定地址的超链接。
For Each hl In ActivePresentation.Slides(1).Hyperlinks
If hl.Address = "c:dzwebs123.ppt" Then
hl.Address = "c:dz37wnew123.ppt"
End If
Next
使用 Hyperlink 属性创建一个超链接并将其添加到 Hyperlinks 集合中。以下示例设置一个超链接，当用户在幻灯片放映中单击当前演示文稿第一张幻灯片第三个形状时，该链接响应；本示例还将该超链接添加到集合中。请注意，以下示例中，如果第三个形状定义了一个单击鼠标的超链接，则在添加新超链接的同时会将此超链接从集合中删除，因此 Hyperlinks 集合中的项目数不变。
With ActivePresentation.Slides(1).Shapes(3).ActionSettings(ppMouseClick)
.Action = ppActionHyperlink
.Hyperlink.Address ="http://www.dzwebs.net"
End With
|
|
