Вставить изображение в OpenOffice Writer, задать его размеры и расположение на листе

@sergo555 · Регистрация: 10.11.2011

Студворк — интернет-сервис помощи студентам

Добрый вечер, форумчане. Нужно вставить изображение в OpenOffice Writer, задать размеры и расположение на листе. Вставить картинку и задать размеры получилось. А задать расположение на листе (отступ слева, по высоте) не получается. Рассчитываю на Вашу помощь.

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
    Variant App = Variant::CreateObject("com.sun.star.ServiceManager");
    Variant Desktop = App.OleFunction("createInstance", "com.sun.star.frame.Desktop");
    //Параметры открытия
    int Bounds[2] = {0,0};
    Variant OpenParams = VarArrayCreate(Bounds, 1, varVariant);
    Variant MyStruct = App.OleFunction("Bridge_GetStruct","com.sun.star.beans.PropertyValue");
    MyStruct.OlePropertySet("name","Hidden");
    MyStruct.OlePropertySet("value", false);
    OpenParams.PutElement(MyStruct, 0);
    //Открытие файла шаблона
    Variant DocWord = Desktop.OleFunction("LoadComponentFromURL", "private:factory/swriter", "_blank", 0, OpenParams);
    //Параметры
    Variant MyStruct1 = App.OleFunction("Bridge_GetStruct", "com.sun.star.beans.PropertyValue");
    MyStruct1.OlePropertySet("name", "FileName");
    MyStruct1.OlePropertySet("value", "file://localhost/C:/1.JPG");
    Variant MyStruct2 = App.OleFunction("Bridge_GetStruct", "com.sun.star.beans.PropertyValue");
    MyStruct2.OlePropertySet("name", "AsLink");
    MyStruct2.OlePropertySet("value", false);
    int Bounds2[2] = {0,1};
    Variant InsertParam = VarArrayCreate(Bounds2, 1, varVariant);
    InsertParam.PutElement(MyStruct1, 0);
    InsertParam.PutElement(MyStruct2, 1);
    //Место куда вставляем
    Variant CurrentController = DocWord.OleFunction("getCurrentController");
    Variant Frame = CurrentController.OleFunction("getFrame");
    Variant Dispatcher = App.OleFunction("createInstance", "com.sun.star.frame.DispatchHelper");
    //вставить изображение
    Dispatcher.OleFunction("executeDispatch",Frame,".uno:InsertGraphic","",0, InsertParam);
    //Устанавливаем размеры
    Variant Picture = DocWord.OleFunction("getDrawPage").OleFunction("getByIndex", 0);
    Picture.OlePropertySet("Width", 2000);
    Picture.OlePropertySet("Height",2000);
    //Как установить расположение на листе?
//не работает
    Picture.OlePropertySet("Top",2000);
    Picture.OlePropertySet("Left",2000);

@volvo · 23.11.2011, 23:13

Сообщение от sergo555

Вставить картинку и задать размеры получилось.

Это неправильный способ задания размеров компонента. Правильный был показан, но был тобой проигнорирован: установка размера через структуру "com.sun.star.awt.Size" и функцию SetSize. Аналогично устанавливается и позиция.

Возможно, понадобится также изменить привязку, поскольку не при любой привязке даже вручную можно изменить позицию объекта.

@sergo555 · 23.11.2011, 23:30 **[ТС]**

То что ты говоришь - я видел в нескольких макросах VBA. Проблема перевести на Builder. А на Builder я ни одного примера не видел, к сожалению.

Добавлено через 10 минут
Например, из книги Питоньяка код VBA:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub InsertGraphicObjectShape(oDoc, sURL$)
REM Author: Andrew Pitonyak
Dim oSize As New com.sun.star.awt.Size
Dim oPos As New com.sun.star.awt.Point
Dim oGraph
REM Сначала создаем форму графического объекта (graphic object shape)
oGraph = oDoc.createInstance("com.sun.star.drawing.GraphicObjectShape")
REM Размер и положение этого графического объекта
oSize.width=6000
oSize.height=8000
oGraph.setSize(oSize)
oPos.X = 2540
oPos.Y = 2540
oGraph.setposition(oPos)
REM Предполагаем, что находимся в текстовом документе, и добавляем одну
страницу рисунка (draw page)
oDoc.getDrawpage().add(oGraph)
REM Устанавливаем адрес URL для этого графического объекта
oGraph.GraphicURL = sURL
End Sub

Я смог перевести только это:

C++
1
Variant oGraph = DocWord.OleFunction("createInstance", "com.sun.star.drawing.GraphicObjectShape");

Вот собстввенно я и хочу пример работы с com.sun.star.awt.Size на Builder.

@volvo · 23.11.2011, 23:34

Где именно проблема? Вот этот код только что прекрасно отработал:

C++
1
2
3
4
5
6
7
8
9
10
    const int AT_PAGE = 2;
    Picture.OlePropertySet ("AnchorType", AT_PAGE);
 
    Variant PosOfPic = App.OleFunction ("Bridge_GetStruct", "com.sun.star.awt.Point");
    // Заполняем
    PosOfPic.OlePropertySet ("X", 7000);
    PosOfPic.OlePropertySet ("Y", 7000);
 
    // Устанавливаем позицию
    Picture.OleFunction("SetPosition", PosOfPic);

Сообщение от sergo555

А на Builder я ни одного примера не видел, к сожалению.

Пример приводился лично мной. Ссылку на пример с "awt.Size" дать, или сам найдешь пост от 13-го ноября на другом форуме? Как говорится, найди 10 отличий... Код, который приводят, отвечая на твои же вопросы, надо внимательно читать, а не бегло просматривать...

@sergo555 · 24.11.2011, 00:28 **[ТС]**

Спасибо за синтаксис. Но код у меня вызывает ошибку - com.sun.star.uno.RuntimeException: position cannot be changed with this metod.
Ошибка в последней строке. Интересно, что не нравится?

C++
1
Picture.OleFunction("SetPosition", PosOfPic);

A Picture в твоем коде как получен?
2)Ссылку давай. Честно, искал!
Добавлено через 22 минуты
3) Слушай, мне еще нужно узнать ширину ячейки таблицы Writera. Везде пишут, что ширину ячейки узнать нельзя, только всего столбца. А у меня таблица сложная, ячейки имеют разную ширину. Не подскажешь, действительно никак нельзя узнать размер ячейки Writer?

Добавлено через 18 минут
Что за фигня?! Твой код для установки размеров работает на отлично:

C++
1
2
3
4
5
6
    Variant SizeOfPic = App.OleFunction ("Bridge_GetStruct", "com.sun.star.awt.Size");
    // Заполняем
    SizeOfPic.OlePropertySet ("Width", 4000);
    SizeOfPic.OlePropertySet ("Height", 4000);
    // Устанавливаем размер
    Picture.OleFunction("setSize", SizeOfPic);

А для установки позиции выдает ошибку. Хотя сравнил по книге Питаньяка - вроде все правильно. Твой код должен РАБОТАТЬ! Может с версией офиса связано, баг какой-нидь? У меня 2.4.2.

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .	Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .
Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .