Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.06.14;
Скачать: CL | DM;

Вниз

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

Текущий архив: 2005.06.14;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.026 c
14-1116686979
Fl@sh
2005-05-21 18:49
2005.06.14
Антивирус??


14-1116850232
boriskb
2005-05-23 16:10
2005.06.14
Ремонт компьютера. Форум :))


3-1115369002
Shark
2005-05-06 12:43
2005.06.14
Записи помеченные на удаление.


4-1114087865
kivadim
2005-04-21 16:51
2005.06.14
Как программно переключить языки


6-1110720210
DereckWhite
2005-03-13 16:23
2005.06.14
API для работы с сетью