Интеграция с MOffice PowerPoint, С++ Builder Опции

[18192123]

Здравствуйте!
Скажи пожалуйста, можно ли из разрабатываемого приложения по нажатию кнопки вставить в существующую презентацию (созданную в MOffice PowerPoint) новый слайд, и кроме того - на слайд вставить картинку из Paint..??

[volvo]

Можно... Связка Builder 2009 + PowerPoint из Office XP:

void __fastcall TForm1::Button8Click(TObject *Sender)
{
	Variant vPowerPoint;
	try {
		// Создаем экземпляр PowerPoint-а
		vPowerPoint = CreateOleObject("PowerPoint.Application");
	}
	catch(...) {
		// Если была ошибка при создании - сообщаем об этом
		ShowMessage("Error...");
	}

	// Делаем PowerPoint видимым
	vPowerPoint.OlePropertySet("Visible", true);
	// Открываем нужную презентацию
	vPowerPoint.
		OlePropertyGet("Presentations").
		OleFunction("Open", "F:\\P.ppt", false);

	// Получаем количество слайдов в ней на данный момент,
	// чтоб добавить новый куда нужно
	int nSlides = vPowerPoint.
		OlePropertyGet("ActivePresentation").
		OlePropertyGet("Slides").
		OlePropertyGet("Count");
	// Добавляем новый слайд после всех присутствующих
	vPowerPoint.
		OlePropertyGet("ActivePresentation").
		OlePropertyGet("Slides").
		OleProcedure("Add",nSlides + 1, 2); // ppLayoutText
	// Переходим ко вновь добавленному слайду
	vPowerPoint.OlePropertyGet("ActiveWindow").
		OlePropertyGet("View").
		OleFunction("GoToSlide", nSlides + 1);
	// Вставляем изображение из буфера обмена на слайд
	vPowerPoint.
		OlePropertyGet("ActiveWindow").
		OlePropertyGet("View").
		OleProcedure("Paste");
	// Сохраняем презентацию
	vPowerPoint.
		OlePropertyGet("ActivePresentation").
		OleFunction("Save");
	// Выходим и освобождаем память
	vPowerPoint.OleProcedure("Quit");
	vPowerPoint = Unassigned;
}

Итого: все, что тебе нужно - это чтобы к моменту нажатия на кнопку в буфере обмена Windows находилась нужная картинка (чтобы запихать из Paint-а картинку в Clipboard достаточно найти окно Paint-а и послать ему нажатия Ctrl+A и Ctrl+C)... На приведенной конфигурации это отработало, на других версиях PP или Билдера могут быть несоответствия в количестве параметров у той или иной процедуры/функции, поэтому может потребоваться незначительная переделка.

[18192123]

void __fastcall TForm1::Button8Click(TObject *Sender)
{
	Variant vPowerPoint;
	try {
		// Создаем экземпляр PowerPoint-а
		vPowerPoint = CreateOleObject("PowerPoint.Application");
	}
	
}

Что-то не то с функцией CreateOleObject..
На строке с этой функцией вот такая вот ошибка:
[C++ Error] Unit1.cpp(23): E2268 Call to undefined function 'CreateOleObject'..
(тестировалось на C++ Builder 6..)

Сообщение отредактировано: 18192123 - 8.03.2009 22:45