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

Статья
04/07/2023

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

Замечания

Используйте свойство Shape.Hyperlink для возврата объекта 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

Методы

Свойства

См. также

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

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

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

Поделиться через