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();
|
|