|
Вывод изображения в шаблон 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. долго шерстить
2. записать макрос (как вставка делается вручную) и потом посмотреть код на VBA
|
|
5
AntonyFO
27.11.15
✎
17:09
|
(0) Стояла такая задача, вот по этой книге делал
|
|
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ют. Альберт Эйнштейн