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

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

(Различия между версиями)
Перейти к: навигация, поиск
м (исправление)
(+ cat)
Строка 27: Строка 27:
[[Категория: Макросы]]
[[Категория: Макросы]]
 +
[[Категория: Макросы Calc]]

Версия 12:51, 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
Личные инструменты
Пространства имён
Варианты
Действия
Компоненты
Общие вопросы
Совместимость
Навигация
Инструменты