VC操作PowerPoint

来源：互联网发布：域名快速备案费用编辑：程序博客网时间：2024/04/20 21:11

Visual C++ 6.0 操作PowerPoint 2003
2008年08月15日星期五上午 11:11
主要内容包括：启动、打开、关闭、幻灯片播放、首页、末页、上一页、下一页等。
本代码以PowerPoint 2003为例，其他OFFICE组件及版本方法与此类似。

下面是主要步骤和代码：
1、创建MFC对话框应用程序，在向导的第2步选择automation，其他保持默认即可。

2、在对话框上添加启动、打开、关闭、幻灯片播放、首页、末页、上一页、下一页等按钮及函数。

3、在应用程序的InitInstance()中初始化OLE，代码如下：

1// Initialize OLE libraries
2if (!AfxOleInit())
3{
4    AfxMessageBox("Failed to initialize OLE");
5    return FALSE;
6}

4、运用类向导添加PowerPoint类型库，类型库默认在"C:\Program Files\Microsoft Office\Office11\"下，文件名为：msppt.olb。

5、在对话框应用程序的头文件中添加：
#include "msppt.h"

6、在在对话框应用程序的头文件中添加如下变量：

01_Application app; 
02Presentations Presentations;
03_Presentation Presentation;
04SlideShowView View;
05SlideShowWindow SlideShowWindow;
06SlideShowSettings slideshow;
07Slides slides; 
08_Slide slide;
09DocumentWindow documentwindow;
10View ActiveView;

7、在启动按钮函数中添加如下代码：

01void CXXXDlg::OnBtnStart()
02{
03    // Start PowerPoint and get Application object...
04    if(!app.CreateDispatch("Powerpoint.Application"))
05    {
06        AfxMessageBox("Couldn't start PowerPoint.");
07    }
08    else // Make PowerPoint visible and display a message
09    {
10        app.SetVisible(TRUE);
11        TRACE("PowerPoint is Running!");
12    }
13}

8、在打开按钮函数中添加如下代码：

01void CXXXDlg::OnBtnOpen()
02{
03    static char BASED_CODE szFilter[] = "PowerPoint Files (*.ppt)|*.ppt||";
04    CFileDialog FileDlg(TRUE,"PPT",NULL,OFN_FILEMUSTEXIST|OFN_NONETWORKBUTTON
05                |OFN_PATHMUSTEXIST,szFilter);
06    FileDlg.DoModal();
07 
08    // To get the selected file's path and name
09    CString strFileName;
10    strFileName = FileDlg.GetPathName();
11 
12    if(!strFileName.IsEmpty())
13    {
14        Presentations = app.GetPresentations();
15        Presentation = Presentations.Open(strFileName,0,0,1);
16    }
17}

9、在关闭按钮函数中添加如下代码：

1void CXXXDlg::OnBtnClose() 
2{
3    documentwindow=app.GetActiveWindow();//获得活动的文档
4    documentwindow.Close();//关闭当前活动的文档
5    if (CanExit())
6        app.Quit();
7}

10、在运行按钮函数中添加如下代码：

01void CXXXDlg::OnBtnRun() 
02{
03    Presentations = app.GetActivePresentation();
04    slides = Presentation.GetSlides(); 
05    // Show the first slide of the presentation
06    slide = slides.Item(COleVariant((long)1)); 
07 
08    //Run the show
09    slideshow = Presentation.GetSlideShowSettings(); 
10    slideshow.Run();
11}

11、在翻到首页按钮函数中添加如下代码：

1void CXXXDlg::OnBtnFirst() 
2{
3    Presentation = app.GetActivePresentation();
4    SlideShowWindow = Presentation.GetSlideShowWindow();
5    View = SlideShowWindow.GetView();
6    View.First();
7}

12、在翻到末叶按钮函数中添加如下代码：

1void CXXXDlg::OnBtnLast() 
2{
3    Presentation = app.GetActivePresentation();
4    SlideShowWindow = Presentation.GetSlideShowWindow();
5    View = SlideShowWindow.GetView();
6    View.Last();
7} 

13、在翻到前页按钮函数中添加如下代码：

1void CXXXDlg::OnBtnPrevious() 
2{
3    Presentation = app.GetActivePresentation();
4    SlideShowWindow = Presentation.GetSlideShowWindow();
5    View = SlideShowWindow.GetView();
6    View.Previous();
7}

14、在翻到下页按钮函数中添加如下代码：

1void CXXXDlg::OnBtnNext() 
2{
3    Presentation = app.GetActivePresentation();
4    SlideShowWindow = Presentation.GetSlideShowWindow();
5    View = SlideShowWindow.GetView();
6    View.Next();
7}

15.获得幻灯片总数

1void CXXXDlg::OnBtnGetSlidesCount() 
2{
3       Presentations=app.GetActivePresentation();
4       slides=Presentation.GetSlides();
5long endpos=slides.GetCount(); //获得幻灯片总数
6}

16.获得当前幻灯片序号

1void CXXXDlg::OnBtnGetCurrentPosition() 
2{
3       Presentation=app.GetActivePresentation();
4       SlideShowWindow=Presentation.GetSlideShowWindow();
5       View=SlideShowWindow.GetView();    
6       long Curpos=View.GetCurrentShowPosition();//当前幻灯片序号 
7}

链接2:http://support.microsoft.com/kb/254009/

这个例子作用是通过程序打开并放映PPT、结束放映、退出程序。

在放映的时候我们就可以获取信息了，可以用OnTimer解决了.

SlideShowView类中的GetCurrentShowPosition函数可以获得当前页码，

其他的就找相关的类查询吧，要获得标题什么的要用到_slide的GetShape函数，返回shapes类型，shapes里面自己选择，比如里面的GetTitle可以获得标题的shape，再通过Shape的GetTextFrame函数， TextFrame的GetTextRange函数，最后 TextRange的GetText就获得标题的文字信息了