0
perester
28.08.17
✎
10:41
|
Здравствуйте!
в общем код такой, картинку вставляет в полный рост, как изменить его размер?(
Документ = Excel.Application.Documents(1); //получаем объект - документ. Это OLE объект, с ним можно работать используя все методы, которые существуют в VBA
Документ.Activate();
Документ.Content.Find.Execute("ФОТО", , , , , , , , ,"");
Документ.Content.InlineShapes.AddPicture("C:\temp\картинка.jpg");
ture("C:\temp\картинка.jpg");
|
|
2
perester
28.08.17
✎
11:28
|
Короче решение такое, но заменяемый текст был в таблице в правой колонке, а оказывается в левой, поэтому их местами пришлось поменять
путь = "C:\temp\картинка.jpg";
ЗначениеКартинки.Записать(путь);
Документ.Content.Find.Execute("{V8 ФОТО}", , , , , , , , ," ");
Документ.Content.InlineShapes.AddPicture(путь);
Документ.Application.Selection.MoveLeft(1, -1, True); // '1=wdCharacter
Документ.Application.Selection.InlineShapes(1).Width = 256;
Документ.Application.Selection.InlineShapes(1).Height = 192;
|
|