Метод Hyperlinks.Add (Publisher)

Статья
04/07/2023

Добавляет новый объект Hyperlink в указанную коллекцию Hyperlinks и возвращает новый объект Hyperlink .

Синтаксис

expression. Добавить (Text, Address, RelativePage, PageID, TextToDisplay)

выражение: переменная, представляющая объект Hyperlinks.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Текст	Обязательный	TextRange	Объект TextRange. Текстовый диапазон для преобразования в гиперссылку.
Address	Необязательный	String	Адрес новой гиперссылки. Если параметр RelativePage имеет значение pbHlinkTargetTypeURL (по умолчанию) или pbHlinkTargetTypeEmail, необходимо указать адрес , иначе возникнет ошибка.
RelativePage	Необязательный	PbHlinkTargetType	Тип добавляемой гиперссылки. Может быть одной из констант PbHlinkTargetType ; значение по умолчанию — pbHlinkTargetTypeURL.
PageID	Необязательный	Long	Идентификатор страницы назначения для новой гиперссылки. Если параметр RelativePage имеет значение pbHlinkTargetTypePageID, необходимо указать PageID или возникнет ошибка. Идентификатор страницы соответствует свойству PageID целевой страницы.
TextToDisplay	Необязательный	String	Отображаемый текст новой гиперссылки. Если этот параметр задан, TextToDisplay заменяет диапазон текста, указанный аргументом Text .

Возвращаемое значение

Hyperlink

Пример

В следующем примере гиперссылки добавляются для фигуры 1 и второй фигуры на одной странице активной публикации. Первая гиперссылка указывает на внешний веб-сайт, а вторая ссылка указывает на четвертую страницу публикации. Фигура одна и фигура 2 должны быть текстовыми полями, а в публикации должно быть не менее четырех страниц, чтобы этот пример работал.

Dim hypNew As Hyperlink 
Dim lngPageID As Long 
Dim strPage As String 
 
With ActiveDocument.Pages(1).Shapes(1).TextFrame 
 Set hypNew = .TextRange.Hyperlinks.Add(Text:=.TextRange, _ 
 Address:="https://www.tailspintoys.com/", _ 
 TextToDisplay:="Tailspin") 
End With 
 
lngPageID = ActiveDocument.Pages(4).PageID 
strPage = "Go to page " _ 
 & Str(ActiveDocument.Pages(4).PageNumber) 
 
With ActiveDocument.Pages(1).Shapes(2).TextFrame 
 Set hypNew = .TextRange.Hyperlinks.Add(Text:=.TextRange, _ 
 RelativePage:=pbHlinkTargetTypePageID, _ 
 PageID:=lngPageID, _ 
 TextToDisplay:=strPage) 
End With

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

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