Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];

Вниз

экспорт рисунка в Excel   Найти похожие ветки 

 
eugie   (2006-01-25 06:07) [0]

Доброго времени суток, уважаемые! Есть задача - передать рисунок (например, TBitmap или TJPEG) в таблицу MS Excel. Одно решение нашел - посредством создания временного файла и вызова метода Picture.Insert("имя временного файла") для TExcelWorkSheet, но оно не очень мне нравится. Может кто знает другой способ, скажем, через TMemoryStream или что-то другое - короче, главное - не создавать временный файл и не использовать буфер обмена Windows. Спасибо.


 
neat   (2006-01-25 07:42) [1]

В Word можно сделать так

WordApp.Selection.InsertAfter(" ", + #13);
ClipBoard.Assign(Image1.Picture);        //функция Delphi
WordApp.Selection.Paste;

Для Excell наверняка можно использовать подобный механизм.


 
КиТаЯц ©   (2006-01-25 08:04) [2]


> eugie   (25.01.06 06:07)
> ...
> то другое - короче, главное - не создавать временный файл
> и не использовать буфер обмена Windows. Спасибо.
> <


> neat   (25.01.06 07:42) [1]
>
> В Word можно сделать так
>
> WordApp.Selection.InsertAfter(" ", + #13);
> ClipBoard.Assign(Image1.Picture);        //функция Delphi
> WordApp.Selection.Paste;
>
> Для Excell наверняка можно использовать подобный механизм.

???
Кстати, самому сабж интересен.
Я все делал как раз через буфер, только такая возможность разрешается пользователю только после того как он сам ее включит в настройках. А там четко написано ИСПОЛЬЗУЕТСЯ БУФЕР. Ну, типа я не виноват...


 
eugie   (2006-01-25 13:10) [3]

Посмотрел как Excel "рисует" в макросе вставку рисунков - больше двух вариантов не нашел: либо из файла, либо из буфера. Может он иначе и не может?



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2006.02.26;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.175 c
15-1139037393
Репортер
2006-02-04 10:16
2006.02.26
Вывод графики и текста


15-1139134546
Ломброзо
2006-02-05 13:15
2006.02.26
GPRS через мобилку


4-1134158169
cerber
2005-12-09 22:56
2006.02.26
EXE как ресурс. Как запустить?


15-1138867273
Незарегестрированный аноним
2006-02-02 11:01
2006.02.26
Жерар Депардье в роли Тараса Бульбы


15-1138830328
Volf_555
2006-02-02 00:45
2006.02.26
Nyxem.e: 3 февраля может стать Судным днем для сотен тысяч компью





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский