Как достать картинку из 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

А как потом его скинуть в файл или, например, в Имейдж.

Как вариант - через буфер.

← →
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

Как достать картинку из Excel документа Найти похожие ветки