Загрузка данных из Excel. Картинка встроенная в ячейку

EXCELApplication = Новый COMОбъект("EXCEL.Application");
		EXCELApplication.Visible       = Ложь;
		EXCELApplication.DisplayAlerts = Ложь;
...
	Book = EXCELApplication.WorkBooks.Open(ПутьКФайлу);
	ЛистЭксель = Book.WorkSheets(1);
../
ЗначениеЯчейки = ПрочитатьКартинку_MSEXCEL(EXCELApplication, ЛистЭксель, 2, Ц, ИмяФайлаEXCEL, 1, "УИД");
ВыбранноеИзображение = Новый Картинка(ЗначениеЯчейки , Ложь);

Функция ПрочитатьКартинку_MSEXCEL(Знач EXCELApplication, Знач Sheet, Знач НомерКолонки, Знач НомерСтроки, Знач ИмяФайлаEXCEL, Знач НомерЛиста, Знач ПравилоИмяФайлаКартинки = "УИД")
	Перем GraphicObject, Chart;
	Перем ПолноеИмяФК, ФайлКартинки;
	
	Если Sheet.Shapes.Count() = 0 Тогда
		Возврат Неопределено;
	КонецЕсли;
	
	Для Каждого GraphicObject ИЗ Sheet.Shapes Цикл
		Если GraphicObject.Type = 13 И GraphicObject.TopLeftCell.Column = НомерКолонки И GraphicObject.TopLeftCell.Row = НомерСтроки Тогда
			
			// GraphicObject.Name.
			Если ПравилоИмяФайлаКартинки = "УИД" Тогда
				ПолноеИмяФК = КаталогВременныхФайлов() + Новый УникальныйИдентификатор() + ".jpg";
			Иначе
				ПолноеИмяФК = КаталогВременныхФайлов() + ИмяФайлаEXCEL + "Л" + НомерЛиста + "С" + НомерСтроки + "К" + НомерКолонки + ".jpg";
			КонецЕсли;
			
			Попытка
				GraphicObject.ScaleHeight(1,1);     // Истинный размер по высоте.
				GraphicObject.ScaleWidth(1,1);      // Истинный размер по ширине.
				GraphicObject.Copy();
				
				Chart = EXCELApplication.ActiveSheet.ChartObjects().Add(0, 0, GraphicObject.Width, GraphicObject.Height).Chart();
				Chart.Paste();
				Chart.Export(ПолноеИмяФК);
				
				Chart = Неопределено;
				
				ФайлКартинки = Новый Файл(ПолноеИмяФК);
				Если ФайлКартинки.Существует() Тогда
					Возврат ПолноеИмяФК;
				Иначе
					Сообщить("Не удалось экспортировать картинку из строки " + НомерСтроки + " колонки " + НомерКолонки + " в " + ПолноеИмяФК);
					Возврат Неопределено;
				КонецЕсли;
			Исключение
				Сообщить(ОписаниеОшибки());
				Сообщить("Не удалось экспортировать картинку из строки " + НомерСтроки + " колонки " + НомерКолонки + " в " + ПолноеИмяФК);
				Возврат Неопределено;
			КонецПопытки;
			
		КонецЕсли;
	КонецЦикла;
	
	Возврат Неопределено;
КонецФункции