Имя: Пароль:
1C
 
Вывод изображения в шаблон Word. Как?
0 Help1с
 
27.11.15
15:12
Нужно вывести рисунок в шаблон Ворд. Рисунок выводится, но реального размера. Как уменьшить его пропорционально и сделать "поверх остального текста"?

Сейчас у меня вот так:

    Документ         = СтруктураМакетов.ПечатнаяФорма.COMСоединение.ActiveDocument;
    ИдентификаторОбласти = "{v8 " + ОбластьПечати.ИмяОбласти + "}";
    Документ.Content.Select();
    Поиск = Документ.Application.Selection.Find;
    Поиск.Text = ИдентификаторОбласти;
    Поиск.ClearFormatting();
    Поиск.Forward = Истина;
    Поиск.execute();
    Сел =  Документ.Application.Selection;
    Picture = Сел.InlineShapes.AddPicture(ИмяФайла,, Истина);
1 Help1с
 
27.11.15
15:21
может можно как-то в готовом документе найти этот рисунок и задать ему нужные параметры (какие)?
2 Garykom
 
гуру
27.11.15
15:23
3 Help1с
 
27.11.15
15:58
(2) спасибо. видел. надеялся на ответ прям к моему коду. придется самому подгонять )
4 Garykom
 
гуру
27.11.15
16:45
(3) есть несколько способов в офисом

1. долго шерстить
https://msdn.microsoft.com/en-us/library/ms178792.aspx

2. записать макрос (как вставка делается вручную) и потом посмотреть код на VBA
5 AntonyFO
 
27.11.15
17:09
(0) Стояла такая задача, вот по этой книге делал http://nashol.com/2011071357368/programmirovanie-dokumentov-i-prilojenii-ms-office-v-delphi-kornyakov-v.html
6 Help1с
 
30.11.15
08:14
Всем спасибо. Сделал. Если кому интересно:

                    Picture = S_election.InlineShapes.AddPicture(ИмяФайла,, Истина);
                    
                    // Зададим размер
                    Picture.LockAspectRatio = -1;      //сохрняем пропорции
                    Picture.Width  = 250;              //устанавливаем ширину
                    // Чтобы установить обтекание текста, конвертируем рисунок в фигуру
                    Shape = Picture.ConvertToShape();
                    Shape.WrapFormat.Type = 5; // перед текстом...
                    
                    S_election.TypeText(Символы.ВК);
Проблемы невозможно решaть нa том же уровне компетентности, нa котором они возникaют. Альберт Эйнштейн