Форум: "Corba";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];
ВнизКак достать картинку из Excel документа Найти похожие ветки
← →
Ragazor (2004-08-28 19:03) [0]сабж
← →
YurikGL © (2004-08-30 07:26) [1]Как вариант запустить Excel потом нужную картинку сделать select а потом copytoclipboard
← →
VMcL © (2004-08-30 10:17) [2]Как-то так, вроде:
ActiveSheet.Shapes(...).Select
Selection.Copy
← →
Ragazor (2004-08-30 11:20) [3]хммм...
А если картинка не одна, тоесть типа нужно выбрать картинку с нужным названием и потом копировать.
← →
Ragazor (2004-08-30 11:36) [4]ActiveSheet.Shapes(...).Select
такой синтаксис требует "member not found"
← →
YurikGL © (2004-08-31 10:45) [5]
> Ragazor (30.08.04 11:36) [4]
Сделай макрос и посмотри его синтаксис
← →
Ragazor (2004-09-03 12:18) [6]я сделал, там надо вписать типа имя картинки вида "Картинка1"
но в делфи так не проходит.
← →
YurikGL © (2004-09-03 13:35) [7]
> Ragazor (03.09.04 12:18) [6]
А что делфи пишет?
На всякий случай попробуй
ActiveSheet.Shapes.item("Картинка 1").Select
На будущее, берешь компонент ExcelWorkSheet, нажимаешь ctrl+пробел и смотришь появившийся список, потом ExcelWorkSheet.Shapes и тоже Ctrl+пробел.... Много нового узнаешь.
← →
Ragazor (2004-09-03 13:55) [8]а я прбовал
ActiveSheet.Shapes("Картинка 1").Select
:)
← →
Ragazor (2004-09-03 14:30) [9]form1.Worksheet.Shapes.Item("Picture5").Select(pic);
вроде так должно быть, PIc: OLEVARIANT
А как потом его скинуть в файл или, например, в Имейдж.
← →
YurikGL © (2004-09-03 15:27) [10]Как вариант - через буфер.
← →
Ragazor (2004-09-05 13:54) [11]Excel.ActiveSheet.Shapes.Item("Picture 5").Select;
Excel.Selection.Copy;
Form1.Image1.Picture.Assign(Clipboard);
вот так работает 100%
Excel:olevariant
Страницы: 1 вся ветка
Форум: "Corba";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.035 c