Вставка гиперссылки в ячейку
Материал из Forumooo wiki
(Различия между версиями)
Rami (Обсуждение | вклад) (Страница гиперссылки) |
Rami (Обсуждение | вклад) м (исправление) |
||
Строка 7: | Строка 7: | ||
Dim oCell 'Заданная ячейка | Dim oCell 'Заданная ячейка | ||
Dim oField 'Поле, которое нужно вставить | Dim oField 'Поле, которое нужно вставить | ||
+ | |||
oCell=ThisComponent.Sheets(0).getCellRangeByName("B1") | oCell=ThisComponent.Sheets(0).getCellRangeByName("B1") | ||
'Создаём переменную типа "адрес URL текстового поля" | 'Создаём переменную типа "адрес URL текстового поля" | ||
oField=ThisComponent.createInstance("com.sun.star.text.TextField.URL") | oField=ThisComponent.createInstance("com.sun.star.text.TextField.URL") | ||
- | oField.Representation="гиперссылка" | + | |
- | oField.URL="http://wiki.forumooo.ru/wiki/Заглавная_страница" | + | oField.Representation="гиперссылка" 'текст гиперссылки |
+ | oField.URL="http://wiki.forumooo.ru/wiki/Заглавная_страница" 'ссылка на сайт | ||
+ | 'oField.URL="#Лист2" 'ссылка на лист | ||
+ | 'oField.URL="#Лист2.B22" 'ссылка на ячейку | ||
+ | 'oField.URL="#Лист2!A2:B22" 'ссылка на диапазон ячеек | ||
+ | |||
'удаляем текст и гиперссылку (если есть) из ячейки, иначе новая гиперссылка будет добавлена к существующей | 'удаляем текст и гиперссылку (если есть) из ячейки, иначе новая гиперссылка будет добавлена к существующей | ||
oCell.setString("") | oCell.setString("") |
Версия 10:55, 24 марта 2017
Макрос вставки гиперссылки в ячейку:
Sub InsertHyperlink 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