| 0
    
        volchara   16.09.20✎ 22:02 | 
        Здравствуйте.
После изменения режима совместимости с 8.2.16 на 8.3.7 картинки начали выводится в 2-х экземплярах одна поверх другой, с именами типа Рисунок 15 и Picture 15)) Как побороть. Фрагмент кода
 
 Для Строка = 0 По мКартинки.Количество()-1 Цикл
 Если мКартинки[Строка].Значение <> "" Тогда
 Верх = Страница.Cells(Строка+10, 3).Top + 1;
 Лево = Страница.Cells(Строка+10, 3).Left + 1;
 ШиринаЯчейки = Страница.Cells(Строка+10, 3).width - 2;
 ВысотаЯчейки = Страница.Cells(Строка+10, 3).height - 2;
 Картинка = Страница.Shapes.AddPicture(мКартинки[Строка].Значение, Ложь, Истина, Лево, Верх, ШиринаЯчейки, ВысотаЯчейки);
 Картинка.LockAspectRatio = 1;
 Картинка.PictureFormat.Parent.LockAspectRatio = 1;
 Картинка.Placement = 1;
 КонецЕсли;
 КонецЦикла;
 
 Книга.Save();
 ОкноExcel.ActiveWorkbook.Close();
 ОкноExcel.Quit();
 |  |