TextToDisplay 属性

返回或设置那些与图形无关的超链接的显示文字。可读写。String 类型。

说明

如果对那些与文字区域无关的超链接使用本属性，则会产生运行时错误。可以使用类似以下示例的代码，检测由 myHyperlink 指定的超链接是否与某个文字范围相关联。

If TypeName(myHyperlink.Parent.Parent) = "TextRange" Then
    strTRtest = "True"
End If

示例

本示例创建一个与第一张幻灯片第二个形状内的文字相关联的超链接。然后将显示文字设置为“Microsoft Home Page”，并将超链接地址设置为相应的 URL。

With ActivePresentation.Slides(1).Shapes(2) _
        .TextFrame.TextRange
    With .ActionSettings(ppMouseClick)
        .Action = ppActionHyperlink
        .Hyperlink.TextToDisplay = "Microsoft Home Page"
        .Hyperlink.Address = "http://www.microsoft.com/"
    End With
End With