Объект гиперссылки (издатель)

Представляет гиперссылку. Объект Hyperlink является членом семейства Hyperlinks и объектов Shape и ShapeRange .

Примечания

Свойство Shape.Hyperlink используется для возврата объекта Hyperlink , связанного с фигурой (у фигуры может быть только одна гиперссылка).

Используйте гиперссылки (индекс), где индекс — это номер индекса, для возврата одного объекта гиперссылки из документа, диапазона или выделения.

Чтобы добавить гиперссылку, используйте метод Add .

Используйте свойство Address для добавления или изменения адреса на гиперссылку.

Пример

В приведенном ниже примере удаляется гиперссылка, связанная с первой фигурой в активном документе.

Sub DeleteHyperlink() 
 ActiveDocument.Pages(1).Shapes(1).Hyperlink.Delete 
End Sub

В приведенном ниже примере удаляется первая гиперссылка в выделенном фрагменте.

Sub DeleteSelectedHyperlink() 
 If Selection.TextRange.Hyperlinks.Count >= 1 Then 
 Selection.TextRange.Hyperlinks(1).Delete 
 End If 
End Sub

В следующем примере добавляется гиперссылка к выбранному тексту.

Sub AddHyperlinkToSelectedText() 
 Selection.TextRange.Hyperlinks.Add Text:=Selection.TextRange, _ 
 Address:="https://www.tailspintoys.com/" 
End Sub

В следующем примере фигура добавляется в активную публикацию и гиперссылка на фигуру.

Sub AddHyperlinkToShape() 
 With ActiveDocument.Pages(1).Shapes.AddShape _ 
 (Type:=msoShape5pointStar, Left:=200, _ 
 Top:=200, Width:=300, Height:=300) 
 .Hyperlink.Address = "https://www.tailspintoys.com/" 
 End With 
End Sub

Методы

• Delete
• SetPageRelative

Свойства

• Address
• Application
• EmailSubject
• PageID
• Parent
• Range
• Shape
• TargetType
• TextToDisplay
• Type

См. также

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

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

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