|
Вывод изображения в шаблон 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(Символы.ВК); |
| Форум | Правила | Описание | Секции | Поиск |