Имя: Пароль:
1C
1С v8
Дублируются картинки при выводе в Excel
,
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();
1 volchara
 
23.09.20
14:52
Реально ни у кого не было подобной ситуации?
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.