双11狂欢大促

盲盒赢 定制羽绒服

开启惊喜盲盒，抽取你的专属好礼

— 惊喜奖品抢先看 —

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

超级年卡50元券

周边70元券

手机支架

一拖三数据线

雨伞

运动毛巾

电动牙刷

VIP月卡

机械键盘

定制羽绒服

如何将PPT放在一个窗体中播放

2014-03-21 10:40:28 1.1k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

kingxie403 墨衍会员 · AI 创作全网分发关注 + 加入社区

播放PowerPoint(PPT)并嵌入窗体根据需求，需要在我们的应用程序中可以播放PPT并操作翻页。由于使用的是c++ builder，没有VS的Windows控件库，所以一开始的打算是把PPT当成一个整体窗口来处理。操作步骤：（1）以播放方式打开PPT 通过Baidu发现是POWERPNT.EXE启动的PPT，所以可以通过ShellExcute（windo 阅读详情

我用的是TOleContainer控件。。。但是搞不出来，不知各位有什么好的方法。帮忙解决一下，谢谢。
PPT不是全屏播放的，放在一个窗体中。。。。。。。

...全文

C#的WPF使用OFFICE库播放PPT 这里所说的是将PPT的播放嵌入到自己的程序中，用代码控制PPT的播放。感兴趣的朋友可以了解一下，代码可以下载阅读详情

kingxie403

C++ 语言 65,214 成员 250,514 内容

+ 关注 + 加入社区

切换为时间正序

DaveBobo 2016-04-18

打赏
举报

楼主能否共享一下这个demo？

阿小步 2016-01-18

打赏
举报

我这里有mfc的demo，需要的话可以联系我，很简单，q511163624

linguizhou 2014-11-23

打赏
举报

@kingxie403问题怎么搞定了呀？求指教！

kingxie403 2014-03-31

打赏
举报

结贴了，我已经搞定这个问题了，用的是OA的ocx插件。。。相关文件之后我会共享

许文君 2014-03-27

打赏
举报

很少有自动操作PPT的需求，有这个需求的也都是录屏的，因此可能比较难得到回答，可以看下这个示例是否有用 http://www.codeproject.com/Articles/2506/Automating-MS-Office-applications

赵4老师 2014-03-26

打赏
举报

如果是我，我可能用 VBA for PowerPoint 或者 CreateDesktop The CreateDesktop function creates a new desktop on the window station associated with the calling process. It returns a handle that can be used to access the new desktop. The calling process must have an associated window station, either assigned by the system at process creation time or set by SetProcessWindowStation. A desktop is a secure object contained within a window station object. A desktop has a logical display surface and contains windows, menus, and hooks. HDESK CreateDesktop( LPCTSTR lpszDesktop, // name of the new desktop LPCTSTR lpszDevice, // reserved; must be NULL. LPDEVMODE pDevMode, // reserved; must be NULL DWORD dwFlags, // flags to control interaction with other // applications DWORD dwDesiredAccess, // specifies access of returned handle LPSECURITY_ATTRIBUTES lpsa // specifies security attributes of // the desktop ); 通读一下MSDN中的ms-help://MS.VSCC.v90/MS.MSDNQTR.v90.chs/powerpntdev2007/content/HV10099330.htm Welcome to the Microsoft Office PowerPoint 2007 Developer Reference This reference contains conceptual overviews, programming tasks, samples, and references to guide you in developing solutions based on PowerPoint. Publish date of this reference: October 2006 (version 2007) This documentation is accessible from the following locations: From the product. To view the developer reference from inside your installed version of PowerPoint, click Help. In the Search box, click PowerPoint Developer Reference. October 2006 (version 2007) is included with the product. From the Microsoft Download Center. To download the latest version of the Developer Reference for offline viewing, and to update local copies for use with the product, visit the Microsoft Download Center. From the MSDN Library. To view the most recent version in the MSDN Library, click items in the table of contents control, displayed in the navigation pane of your browser. This documentation contains the following sections: What's New Provides a list of new members by object and in alphabetical order. Concepts Provides important concepts for developing custom PowerPoint solutions. Reference Provides reference materials for the PowerPoint object model. Related Links Microsoft Office Developer Center Accessibility Features in the Microsoft Office System Document Conventions in Office Developer Documentation Microsoft.com Privacy Statement 也许有帮助。

kingxie403 2014-03-26

打赏
举报

引用 19 楼 xuddk727 的回复:

没看明白你是什么需求，请先简单描述下，比如是外部控制PPT或者什么其他需求

就是将PPT程序放在一个窗口内播放，幻灯片播放时外部调控上下页，而不是全屏播放

许文君 2014-03-26

打赏
举报

没看明白你是什么需求，请先简单描述下，比如是外部控制PPT或者什么其他需求

kingxie403 2014-03-26

打赏
举报

看来此贴是结不了啊。。。。

kingxie403 2014-03-26

打赏
举报

唉，C++都不怎么熟，VBA就更难了

derekrose 2014-03-25

打赏
举报

delphi？？..

黑泡泡选手 2014-03-24

打赏
举报

引用 13 楼 kingxie403 的回复:

这个app是？？


COleDispatchDriver app = NULL; // app is the PowerPoint _Application object
COleDispatchDriver Presentation = NULL;

kingxie403 2014-03-24

打赏
举报

这个app是？？

江湖的传说 2014-03-24

打赏
举报

引用 9 楼 kingxie403 的回复:

[quote=引用 7 楼 u013702063 的回复:] 报什么错？

那个代码你试过吗？没报错吗？ [/quote] 木有试过是不是缺少组件？重新安装下 Visual Basic for Applications ERROR: [EOleException]: Unspecified error.

黑泡泡选手 2014-03-24

打赏
举报

上面的使用例子有错误，应该改为：


if (Init())
{
    New( GetSafeHwnd() );

    Open(_T("D:\\1.ppt"));

    Exit();
}

黑泡泡选手 2014-03-24

打赏
举报


BOOL Init()
{
	// Start PowerPoint and get Application object...
	return app.CreateDispatch(_T("Powerpoint.Application"));
}

void New(HWND hParent)
{
	// Make PowerPoint visible and display a message
	long nNewValue = TRUE;
	static BYTE parms[] = VTS_I4 ;
	app.InvokeHelper(0x7ee, DISPATCH_PROPERTYPUT, VT_EMPTY, NULL, parms, nNewValue);
	TRACE("PowerPoint is Running!\n");

	if (NULL == hParent)
		return;

	CString result;
	app.InvokeHelper(0x7d9, DISPATCH_PROPERTYGET, VT_BSTR, (void *)&result, NULL);

	hPPTWnd = ::FindWindow(NULL, result);
	if (NULL == hPPTWnd)
		return;

	SetWindowLong(hPPTWnd, GWL_STYLE, GetWindowLong(hPPTWnd, GWL_STYLE)-WS_POPUP+WS_CHILD-WS_CAPTION-WS_BORDER-WS_THICKFRAME);
	::SetParent(hPPTWnd, hParent);		
}

void Open(LPCTSTR sFileName)
{
	app.InvokeHelper(0x7d1, DISPATCH_PROPERTYGET, VT_DISPATCH, (void*)&Presentations, NULL);

	long ReadOnly = 0;
	long Untitled = 0;
	long WithWindow = 1;

	CString strFileName;
	strFileName.Format(_T("%s"), sFileName);

	static BYTE parms[] = VTS_BSTR VTS_I4 VTS_I4 VTS_I4 ;
	Presentations.InvokeHelper(0x7d5, DISPATCH_METHOD, VT_DISPATCH, (void*)&Presentation, parms, strFileName, ReadOnly, Untitled, WithWindow);
}

LPCTSTR GetCaption()
{
	CString result;
	app.InvokeHelper(0x7d9, DISPATCH_PROPERTYGET, VT_BSTR, (void*)&result, NULL);
	return result;
}

void Move(float left, float top, float width, float height)
{
	static BYTE parms[] = VTS_R4 ;
	// left
	app.InvokeHelper(0x7e9, DISPATCH_PROPERTYPUT, VT_EMPTY, NULL, parms, left);

	// top
	app.InvokeHelper(0x7ea, DISPATCH_PROPERTYPUT, VT_EMPTY, NULL, parms, top);

	// width
	app.InvokeHelper(0x7eb, DISPATCH_PROPERTYPUT, VT_EMPTY, NULL, parms, width);

	// height
	app.InvokeHelper(0x7ec, DISPATCH_PROPERTYPUT, VT_EMPTY, NULL, parms, height);
}

void Exit()
{
	app.InvokeHelper(0x7e5, DISPATCH_METHOD, VT_EMPTY, NULL, NULL);

	Presentations.ReleaseDispatch();
	Presentation.ReleaseDispatch();
	app.ReleaseDispatch();
}

// 使用例子：
CoInitialize(NULL);

if (Init())
{
	New( GetSafeHwnd() );
}

Open(_T("D:\\1.ppt"));

Exit();

kingxie403 2014-03-24

打赏
举报

引用 7 楼 u013702063 的回复:

报什么错？

那个代码你试过吗？没报错吗？

kingxie403 2014-03-24

打赏
举报

江湖的传说 2014-03-24

打赏
举报

报什么错？

kingxie403 2014-03-24

打赏
举报

贴上我写的代码各位看看哪有问题

void __fastcall TForm3::Button1Click(TObject *Sender) {
	Variant vPowerPoint;
	try {
		vPowerPoint = CreateOleObject("PowerPoint.Application");
	}
	catch (...) {
		ShowMessage("Error...");
	}

	// 使 Powerpoint 界面可视
	vPowerPoint.OlePropertySet("Visible", true);

	// 打开一个剪辑
	String strPptFile = "C:\\Users\\Administrator\\Desktop\\test\\xxf.ppt";
	// 换成你的PPT文件名
	vPowerPoint.OlePropertyGet("Presentations").OleFunction("Open",
		strPptFile.c_str(), false, false, true);
	// 得到幻灯片总数

	int nSlidecounts = vPowerPoint.OlePropertyGet("ActivePresentation")
		.OlePropertyGet("Slides").OlePropertyGet("Count");

	// 放映这个剪辑
	vPowerPoint.OlePropertyGet("ActivePresentation").OlePropertyGet
		("SlideShowSettings").OleFunction("Run");

		//放映下一张幻灯片
	 Variant vSlideShowWin =  vPowerPoint.OlePropertyGet("ActivePresentation").OlePropertyGet("SlideShowWindow");
	  vSlideShowWin.OlePropertyGet("View").OleFunction("Next");

	   //跳到第二页

	   vSlideShowWin.OlePropertyGet("View").OleFunction("GoToSlide",2);
	   //返回上一页
		vSlideShowWin.OlePropertyGet("View").OleFunction("Previous");
		//跳到最后一页
		vSlideShowWin.OlePropertyGet("View").OleFunction("Last");
		vPowerPoint.OleProcedure("Quit");
		vPowerPoint = Unassigned;

}

加载更多回复（8）

✦双11狂欢大促✦

如何将PPT放在一个窗体中播放

相关推荐

双11狂欢大促