Вставка гиперссылки в ячейку
Материал из Forumooo wiki
(Различия между версиями)
Helen (Обсуждение | вклад) (+ cat) |
Rami (Обсуждение | вклад) (добавление макросов и текста) |
||
Строка 1: | Строка 1: | ||
{{DISPLAYTITLE: Вставка гиперссылки в ячейку}} | {{DISPLAYTITLE: Вставка гиперссылки в ячейку}} | ||
- | + | Вставить гиперссылку в ячейку можно несколькими способами: как поле, как свойство ячейки или как формулу. | |
+ | |||
+ | |||
+ | ==Вставка гиперссылки в ячейку как поле:== | ||
<source lang="oobas"> | <source lang="oobas"> | ||
- | Sub | + | Sub InsertHyperlink1 |
Dim oCell 'Заданная ячейка | Dim oCell 'Заданная ячейка | ||
Dim oField 'Поле, которое нужно вставить | Dim oField 'Поле, которое нужно вставить | ||
Строка 21: | Строка 24: | ||
oCell.setString("") | oCell.setString("") | ||
oCell.Text.insertTextContent(oCell.Text.createTextCursor(),oField,False) 'вставляем гиперссылку | oCell.Text.insertTextContent(oCell.Text.createTextCursor(),oField,False) 'вставляем гиперссылку | ||
+ | End Sub | ||
+ | </source> | ||
+ | {{Tip|Вставка гиперссылки в ячейку как поле позволяет сохранить гиперссылки при экспорте в форматы PDF и HTML.}} | ||
+ | |||
+ | |||
+ | |||
+ | ==Вставка гиперссылки в ячейку с использованием свойства ячейки Hyperlink:== | ||
+ | <source lang="oobas"> | ||
+ | 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 | ||
+ | </source> | ||
+ | {{Tip|Вставка гиперссылки в ячейку с использованием свойства ячейки Hyperlink позволяет перезаписывать содержимое ячейки (текст, значения или формулы) без изменения цели гиперссылки. Это можно использовать в больших таблицах или многостраничных документах для перехода к диапазону данных используемых для расчёта ячейки.}} | ||
+ | |||
+ | |||
+ | |||
+ | ==Вставка в ячейку формулу гиперссылки:== | ||
+ | <source lang="oobas"> | ||
+ | Sub InsertHyperlink3 | ||
+ | Dim oCell 'Заданная ячейка | ||
+ | oCell=ThisComponent.Sheets(0).getCellRangeByName("B5") | ||
+ | oCell.Formula="=HYPERLINK(""http://wiki.forumooo.ru/wiki/Заглавная_страница"";""Hyperlink"")" | ||
End Sub | End Sub | ||
</source> | </source> |
Текущая версия на 16:39, 25 марта 2017
Вставить гиперссылку в ячейку можно несколькими способами: как поле, как свойство ячейки или как формулу.
Вставка гиперссылки в ячейку как поле:
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
Вставка в ячейку формулу гиперссылки:
Sub InsertHyperlink3 Dim oCell 'Заданная ячейка oCell=ThisComponent.Sheets(0).getCellRangeByName("B5") oCell.Formula="=HYPERLINK(""http://wiki.forumooo.ru/wiki/Заглавная_страница"";""Hyperlink"")" End Sub