Вставка гиперссылки в ячейку
Материал из Forumooo wiki
Вставить гиперссылку в ячейку можно несколькими способами: как поле, как свойство ячейки или как формулу.
Вставка гиперссылки в ячейку как поле:
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
 | Вставка гиперссылки в ячейку как поле позволяет сохранить гиперссылки при экспорте в форматы 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
| Вставка гиперссылки в ячейку с использованием свойства ячейки Hyperlink позволяет перезаписывать содержимое ячейки (текст, значения или формулы) без изменения цели гиперссылки. Это можно использовать в больших таблицах или многостраничных документах для перехода к диапазону данных используемых для расчёта ячейки. |
Вставка в ячейку формулу гиперссылки:
Sub InsertHyperlink3 Dim oCell 'Заданная ячейка oCell=ThisComponent.Sheets(0).getCellRangeByName("B5") oCell.Formula="=HYPERLINK(""http://wiki.forumooo.ru/wiki/Заглавная_страница"";""Hyperlink"")" End Sub
