Имя: Пароль:
1C
1С v8
1с изменение размера картинки в ворде
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");
1 perester
 
28.08.17
10:45
(0) последняя строчка опечатка
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;