VC控制PPT
主要内容包括：启动、打开、关闭、幻灯片播放、首页、末页、上一页、下一页等。
本代码以PowerPoint 2003为例，其他OFFICE组件及版本方法与此类似。
下面是主要步骤和代码：
1、创建MFC对话框应用程序，在向导的第2步选择automation，其他保持默认即可。
2、在对话框上添加启动、打开、关闭、幻灯片播放、首页、末页、上一页、下一页等按钮及函数。
3、在应用程序的InitInstance()中初始化OLE，代码如下：
// Initialize OLE libraries
if (!AfxOleInit())
{
AfxMessageBox("Failed to initialize OLE");
return FALSE;
}
4、运用类向导添加PowerPoint类型库，类型库默认在"C:\Program
Files\Microsoft Office\Office11\"下，文件名为：msppt.olb。
5、在对话框应用程序的头文件中添加：
#include "msppt.h"
6、在在对话框应用程序的头文件中添加如下变量：
_Application app;
Presentations Presentations;
_Presentation Presentation;
SlideShowView View;
SlideShowWindow SlideShowWindow;
SlideShowSettings slideshow;
Slides slides;
_Slide slide;
DocumentWindow documentwindow;
View ActiveView;
7、在启动按钮函数中添加如下代码：
void CXXXDlg::OnBtnStart()
{
// Start PowerPoint and get Application object...
if(!app.CreateDispatch("Powerpoint.Application"))
{
AfxMessageBox("Couldn't start PowerPoint.");
}
else // Make PowerPoint visible and display a message
{
app.SetVisible(TRUE);
TRACE("PowerPoint is Running!");
}
}
8、在打开按钮函数中添加如下代码：
void CXXXDlg::OnBtnOpen()
{
static char BASED_CODE szFilter[] = "PowerPoint Files (*.ppt)|*.ppt||";
CFileDialog
FileDlg(TRUE,"PPT",NULL,OFN_FILEMUSTEXIST|OFN_NONETWORKBUTTON |OFN_PATHMUSTEXIST,szFilter);
FileDlg.DoModal();
// To get the selected file's path and name
CString strFileName;
strFileName = FileDlg.GetPathName();
if(!strFileName.IsEmpty())
{
Presentations = app.GetPresentations();
Presentation = Presentations.Open(strFileName,0,0,1); }
}
9、在关闭按钮函数中添加如下代码：
void CXXXDlg::OnBtnClose()
{
documentwindow=app.GetActiveWindow();//获得活动的文档
documentwindow.Close();//关闭当前活动的文档
if (CanExit())
app.Quit();
}
10、在运行按钮函数中添加如下代码：
void CXXXDlg::OnBtnRun()
{
Presentations = app.GetActivePresentation();
slides = Presentation.GetSlides();
// Show the first slide of the presentation
slide = slides.Item(COleVariant((long)1));
//Run the show
slideshow = Presentation.GetSlideShowSettings();
slideshow.Run();
}
11、在翻到首页按钮函数中添加如下代码：
void CXXXDlg::OnBtnFirst()
{
Presentation = app.GetActivePresentation();
SlideShowWindow = Presentation.GetSlideShowWindow(); View = SlideShowWindow.GetView();
View.First();
}
12、在翻到末叶按钮函数中添加如下代码：
void CXXXDlg::OnBtnLast()
{
Presentation = app.GetActivePresentation();
SlideShowWindow = Presentation.GetSlideShowWindow(); View = SlideShowWindow.GetView();
https://www.doczj.com/doc/1513216005.html,st();
}
13、在翻到前页按钮函数中添加如下代码：
void CXXXDlg::OnBtnPrevious()
{
Presentation = app.GetActivePresentation();
SlideShowWindow = Presentation.GetSlideShowWindow(); View = SlideShowWindow.GetView();
View.Previous();
}
14、在翻到下页按钮函数中添加如下代码：
void CXXXDlg::OnBtnNext()
{
Presentation = app.GetActivePresentation();
SlideShowWindow = Presentation.GetSlideShowWindow(); View = SlideShowWindow.GetView();
View.Next();
}
15.获得幻灯片总数
void CXXXDlg::OnBtnGetSlidesCount()
{
Presentations=app.GetActivePresentation();
slides=Presentation.GetSlides();
long endpos=slides.GetCount(); //获得幻灯片总数
}