Форум на Kuban.ru (http://forums.kuban.ru/)
-   Территория 1С (http://forums.kuban.ru/f1040/)
-   -   Картинку в Опен Офис. (http://forums.kuban.ru/f1040/kartinku_v_open_ofis-2409773.html)

chtata 28.03.2012 07:51

Картинку в Опен Офис.
 
Из 1С77 заполняется лист Опен Офис. Как динамически вставлять картинки из определенных файлов? Спасибо.

chtata 28.03.2012 13:42

Никто картины не рисует? UP

drums2004 28.03.2012 15:08

document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(3) as new com.sun.star.beans.PropertyValue
args1(0).Name = "FileName"
args1(0).Value = "file:///F:/BF.bmp"
args1(1).Name = "FilterName"
args1(1).Value = "<Все форматы>"
args1(2).Name = "AsLink"
args1(2).Value = false
args1(3).Name = "Style"
args1(3).Value = "Изображения"

dispatcher.executeDispatch(document, ".[filolog]uno[/filolog]:InsertGraphic", "", 0, args1())
так как-то

chtata 29.03.2012 08:42

(3) Спасибо - буду пробовать

Гинзбург 30.03.2012 10:01

Это чо за бред ?

Гинзбург 30.03.2012 10:02

подождем пан-директора (economist) - он знатный опенофесник, это ему раз плюнуть

Гинзбург 30.03.2012 21:49

не ужели пан-директор онимел


Текущее время: 22:54. Часовой пояс GMT +3.