Вставка гиперссылки в ячейку
Материал из Forumooo wiki
Версия от 10:55, 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/Заглавная_страница" 'ссылка на сайт 'oField.URL="#Лист2" 'ссылка на лист 'oField.URL="#Лист2.B22" 'ссылка на ячейку 'oField.URL="#Лист2!A2:B22" 'ссылка на диапазон ячеек 'удаляем текст и гиперссылку (если есть) из ячейки, иначе новая гиперссылка будет добавлена к существующей oCell.setString("") oCell.Text.insertTextContent(oCell.Text.createTextCursor(),oField,False) 'вставляем гиперссылку End Sub