Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "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.057 c
3-1115229873
Damager
2005-05-04 22:04
2005.06.14
Ошибка при редактирвании данных


14-1117166797
Иксик
2005-05-27 08:06
2005.06.14
BTC


1-1117132916
Nikitian
2005-05-26 22:41
2005.06.14
findcomponent - неясна работа


14-1116827183
Kerk
2005-05-23 09:46
2005.06.14
С днем рожденья! 23 мая


14-1116686979
Fl@sh
2005-05-21 18:49
2005.06.14
Антивирус??





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский