mmlm10
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ruslang
Тогда уж как-то так:
try
try // пробуем добавить картинку в список картинок
XLS.MSOPictures.Add.Filename := 'c:\G.jpg';
except
; // если она там уже есть, программа скажет "A picture with this name already exists",
// а мы ничего делать и не будем
end;
finally // а теперь независимо от того, удалось добавить картинку, или нет,
// продолжаем обработку и записываем файл
with XLS.Sheets[0].DrawingObjects.Pictures.Add do begin
// тут есть опасность промахнуться с нужной картинкой!!!
PictureName := XLS.MSOPictures[XLS.MSOPictures.Count - 1]. Filename;
Col1 := seColumn.Value;
Row1 := seRow.Value;
Col2 := seColumn.Value + 3;
Row2 := seRow.Value + 8;
Rotation := seRotation.Value;
end;
XLS.Filename := 'c:\1.xls';
XLS.Write;
end;
А закомментированную строку в файле Escher.pas я бы восстановил. |
