Аватар для Израдор
4 / 4 / 1
Регистрация: 06.06.2010
Сообщений: 115

Добавление картинки в Excel

17.09.2016, 00:40. Показов 2257. Ответов 4
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Доброго времени суток
Вот только начинаю разбираться с OLE, не получается вставить картинку, выдаёт ошибку неизвестного имени, подскажите пожалуйста что не так...
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant
app,       //Переменные App-Application
bks,       //bks-книга
bk,        //bk-книга
shts,      //Shts-листы
sht,       //Sht-лист
cll;       //Cll-ячейка
 app=CreateOleObject("Excel.Application");  // Создаем Excel Application
 app.OlePropertySet("Visible", true); //Делаем нашу книгу видимой
 bks=app.OlePropertyGet("Workbooks"); //Набор рабочих книг Excel
 app.OlePropertySet("SheetsInNewWorkbook", 1); //Количество листов в книге. В данном слачае 1
 bks.OleProcedure("Add"); //процедура добавления
 bk=bks.OlePropertyGet("Item",1); //Текущая книга
 shts=bk.OlePropertyGet("Worksheets"); //Набор страниц книги Excel
// Первый лист
sht=shts.OlePropertyGet("Item", 1); //Лист 1
sht.OlePropertySet("Name", WideString(" Лист")); //Имя у него "Первый Лист"
// Второй лист       (вдруг понадобится)
//sht=Shts.OlePropertyGet("Item", 2);
//sht.OlePropertySet("Name", WideString(" Листок"));
sht=shts.OlePropertyGet("Item",1); //В какую страницу нам вставить значение
cll=sht.OlePropertyGet("Cells").OlePropertyGet("Item", 1,1); //В какую ячейку
cll.OlePropertySet("Value", WideString("текст")); //Наше значение. В данном случае "Наш текст"
app.OlePropertySet("DisplayAlerts", false); //Не спрашивать призамене файла
app.OlePropertyGet("WorkBooks",1).OleProcedure("SaveAs", WideString("./test.xlsx") ) ;  // save
 
 cll.OlePropertyGet("Item", 2,2).OlePropertyGet("InsertPictur",".\test.jpg", false, true); 
 
 app.Exec(Procedure("Quit"));  //close
 
 
 
 
}
0
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
17.09.2016, 00:40
Ответы с готовыми решениями:

Excel 2007: добавление фоновой картинки для указанного диапазона ячеек
Добрый вечер. Подскажите, можно ли указанному диапазону ячеек добавлять фоновую картинку? Если да, то можно ли делать подобное...

Добавление данных в бд из input, а так же добавление картинки в папку и прописка пути
Здравствуйте, код для магазина. Есть форма с определенными полями , для упрощения сделала выбор таблицы для записи что бы потом выводить...

Добавление картинки
В SQL_Server для поля можно определить тип Image. А вот при работе что туда пихать - адрес картинки?

4
Модератор
 Аватар для vxg
3402 / 2173 / 353
Регистрация: 13.01.2012
Сообщений: 8,430
17.09.2016, 19:04
Израдор,
1 скажи хоть на какой строке выдает
2 разберись с экранированием слешей - смущает \test.jpg вместо \\test.jpg
3 может опечатка InsertPictur вместо InsertPicture
0
 Аватар для Израдор
4 / 4 / 1
Регистрация: 06.06.2010
Сообщений: 115
17.09.2016, 19:15  [ТС]
выдаёт ошибку:
"project project1 exe raised exception class eoleexception with message ''Неизвестное имя"."
на исправленной строке:
C++
1
cll.OlePropertyGet("Item", 2,2).OlePropertyGet("InsertPicture","C:\\test.jpg", false, true);
0
Модератор
 Аватар для vxg
3402 / 2173 / 353
Регистрация: 13.01.2012
Сообщений: 8,430
17.09.2016, 22:23
Израдор, я так думаю это от того что вы у ячейки (итема) хотите взять свойство итем (зачем?) а у него в добавок взять свойство инсерт которое наверное функция
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
 Аватар для volvo
33135 / 21429 / 8221
Регистрация: 22.10.2011
Сообщений: 36,753
Записей в блоге: 9
18.09.2016, 11:12
Картинка на лист Excel добавляется через OlePropertyGet("Shapes").OleFunction("Ad dPicture"), а не через неведомый InsertPicture, о котором MSDN даже не знает.

Пример см. здесь: 1.19 Грузим и двигаем рисунки по листу
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
18.09.2016, 11:12
Помогаю со студенческими работами здесь

Добавление картинки в БД
Хочу добавить картинку в базу данных. Чтение провожу так : OpenFileDialog dlg = new OpenFileDialog(); ...

добавление картинки
Добрый день мне нужно чтоб в белом окошечке...была катринка и при листании исполнителей она менялась,обясните пожалуста или покажыте не...

Добавление картинки на фрейм
Здравствуйте, столкнулся с незнанием свинга. Подскажите пожалуйста, как добавить картинку картинку на панель, которая прикреплена к низу...

Добавление картинки на страницу
Доброго времени суток. Делаю галерею на js и столкнулся с проблемой добавления картинки при клике на её уменьшенный прототип. Мне нужно...

Добавление картинки в QPushButton
Нужно добавить в кнопу фоновую картинку и растягивать её(картинку) в зависимости от разрешения экрана. З.Ы. Android приложение Саму...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

Новые блоги и статьи
MVC фреймворк в PHP
Jason-Webb 19.04.2025
Архитектурный паттерн Model-View-Controller (MVC) – это не просто модный термин из мира веб-разработки. Для PHP-программистов это фундаментальный подход к организации кода, который радикально меняет. . .
Dictionary Comprehensions в Python
py-thonny 19.04.2025
Python славится своей выразительностью и лаконичностью, что позволяет писать чистый и понятный код. Среди множества синтаксических конструкций языка особое место занимают словарные включения. . .
Шаблоны и протоколы для создания устойчивых микросервисов
ArchitectMsa 19.04.2025
Микросервисы — архитектурный подход, разбивающий сложные приложения на небольшие, независимые компоненты. Вместо монолитного гиганта, система превращается в созвездие небольших взаимодействующих. . .
Изменяемые и неизменяемые типы в Python
py-thonny 19.04.2025
Python славится своей гибкостью и интуитивной понятностью, а одна из главных его особенностей — это система типов данных. В этом языке все, включая числа, строки, функции и даже классы, является. . .
Интеграция Hangfire с RabbitMQ в проектах C#.NET
stackOverflow 18.04.2025
Разработка современных . NET-приложений часто требует выполнения задач "за кулисами". Это может быть отправка email-уведомлений, генерация отчётов, обработка загруженных файлов или синхронизация. . .
Построение эффективных запросов в микросервисной архитектуре: Стратегии и практики
ArchitectMsa 18.04.2025
Микросервисная архитектура принесла с собой много преимуществ — возможность независимого масштабирования сервисов, технологическую гибкость и четкое разграничение ответственности. Но как часто бывает. . .
Префабы в Unity: Использование, хранение, управление
GameUnited 18.04.2025
Префабы — один из краеугольных элементов разработки игр в Unity, представляющий собой шаблоны объектов, которые можно многократно использовать в различных сценах. Они позволяют создавать составные. . .
RabbitMQ как шина данных в интеграционных решениях на C# (с MassTransit)
stackOverflow 18.04.2025
Современный бизнес опирается на множество специализированных программных систем, каждая из которых заточена под решение конкретных задач. CRM управляет отношениями с клиентами, ERP контролирует. . .
Типы в TypeScript
run.dev 18.04.2025
TypeScript представляет собой мощное расширение JavaScript, которое добавляет статическую типизацию в этот динамический язык. В JavaScript, где переменная может свободно менять тип в процессе. . .
Погружение в Kafka: Концепции и примеры на C# с ASP.NET Core
stackOverflow 18.04.2025
Apache Kafka изменила подход к обработке данных в распределенных системах. Эта платформа потоковой передачи данных выходит далеко за рамки обычной шины сообщений, предлагая мощные возможности,. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru