Вставка гиперссылки в ячейку

Материал из Forumooo wiki

Версия от 16:39, 25 марта 2017; Rami (Обсуждение | вклад)
(разн.) ← Предыдущая | Текущая версия (разн.) | Следующая → (разн.)
Перейти к: навигация, поиск


Вставить гиперссылку в ячейку можно несколькими способами: как поле, как свойство ячейки или как формулу.


Вставка гиперссылки в ячейку как поле:

Sub InsertHyperlink1
Dim oCell   'Заданная ячейка
Dim oField  'Поле, которое нужно вставить
 
oCell=ThisComponent.Sheets(0).getCellRangeByName("B1")
'Создаём переменную типа "адрес URL текстового поля"
oField=ThisComponent.createInstance("com.sun.star.text.TextField.URL")
 
oField.Representation="гиперссылка"                            'текст гиперссылки
oField.URL="http://wiki.forumooo.ru/wiki/Заглавная_страница"   'ссылка на сайт
'oField.URL="#Лист2"                                           'ссылка на лист
'oField.URL="#Лист2.B22"                                       'ссылка на ячейку
'oField.URL="#Лист2!A2:B22"                                    'ссылка на диапазон ячеек
 
'удаляем текст и гиперссылку (если есть) из ячейки, иначе новая гиперссылка будет добавлена к существующей
oCell.setString("")
oCell.Text.insertTextContent(oCell.Text.createTextCursor(),oField,False)   'вставляем гиперссылку
End Sub
Tip.pngВставка гиперссылки в ячейку как поле позволяет сохранить гиперссылки при экспорте в форматы PDF и HTML.


Вставка гиперссылки в ячейку с использованием свойства ячейки Hyperlink:

Sub InsertHyperlink2
Dim oCell   'Заданная ячейка
oCell=ThisComponent.Sheets(0).getCellRangeByName("B3")
'oCell.Formula="=SUM(D1:D10)"                                        'текст гиперссылки как формула
'oCell.Value=123                                                     'текст гиперссылки как числовое значение
oCell.String="гиперссылка"                                           'текст гиперссылки
 
oCell.Hyperlink="http://wiki.forumooo.ru/wiki/Заглавная_страница"    'ссылка на сайт
'oCell.Hyperlink="#Лист2"                                            'ссылка на лист
'oCell.Hyperlink="#Лист2.B22"                                        'ссылка на ячейку
'oCell.Hyperlink="#Лист1!A2:B22"                                     'ссылка на диапазон ячеек
End Sub
Tip.pngВставка гиперссылки в ячейку с использованием свойства ячейки Hyperlink позволяет перезаписывать содержимое ячейки (текст, значения или формулы) без изменения цели гиперссылки. Это можно использовать в больших таблицах или многостраничных документах для перехода к диапазону данных используемых для расчёта ячейки.


Вставка в ячейку формулу гиперссылки:

Sub InsertHyperlink3
Dim oCell   'Заданная ячейка
oCell=ThisComponent.Sheets(0).getCellRangeByName("B5")
oCell.Formula="=HYPERLINK(""http://wiki.forumooo.ru/wiki/Заглавная_страница"";""Hyperlink"")"
End Sub
Личные инструменты
Пространства имён
Варианты
Действия
Компоненты
Общие вопросы
Совместимость
Навигация
Инструменты