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

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

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


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

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/Заглавная_страница"              'адрес
'удаляем текст и гиперссылку (если есть) из ячейки, иначе новая гиперссылка будет добавлена к существующей
oCell.setString("")
oCell.Text.insertTextContent(oCell.Text.createTextCursor(),oField,False)   'вставляем гиперссылку
End Sub
Личные инструменты
Пространства имён
Варианты
Действия
Компоненты
Общие вопросы
Совместимость
Навигация
Инструменты