Метод Hyperlinks.Add (Publisher)

Добавляет новый объект "Гиперссылка " в указанную коллекцию "Гиперссылки " и возвращает новый объект "Гиперссылка ".

Синтаксис

выражение. Добавление (текст, адрес, RelativePage, PageID,TextToDisplay)

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

Параметры

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

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

Hyperlink

Пример

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

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 и обратная связь.