Получить или изменить базовый адрес гиперссылки текущей рабочей книги- Visual Basic(Бейсик)

Для того, чтобы с помощью VBA, получить или изменить путь/адрес, который Excel использует для создания относительных гиперссылок (и который можно увидеть/изменить вручную, если в меню Файл выбрать команду Свойства, затем выделить закладку Документ и работать с текстовым полем База гиперссылки), достаточно применить следующий синтаксис, разумеется, указав нужную рабочую книгу.

iPath = ThisWorkbook.BuiltinDocumentProperties("Hyperlink Base")
If iPath <> "" Then
   MsgBox "База гиперссылки: " & iPath, ,""
Else
   MsgBox "На нет, и суда нет", ,""
End If
Обратите внимание на то, что в случае отсутствия базы гиперссылки, гиперссылки, типа, file:// могут создаваться относительно папки, в которой находится текущая книга (естественно, если она сохранена)

iPath = "C:\Мои документы"
ThisWorkbook.BuiltinDocumentProperties("Hyperlink Base") = iPath
code: #vba
iAddress = "http://www.samplecode.com"
ThisWorkbook.BuiltinDocumentProperties("Hyperlink Base") = iAddress

Leave a Comment