如何通过使用 Visual c + + 5.0 或 Visual c + + 6.0 中的 Microsoft 基础类具有自动化 PowerPoint

通过使用自动化在 PowerPoint 中，您可以以编程方式打印、 显示幻灯片，和执行大多数您可以以交互方式执行该操作。 请按照下列步骤以生成并运行自动化示例：

1. 创建一个新的基于对话框的 MFC EXE 项目。
2. 将按钮添加到您的对话框和 BN_CLICKED 处理程序中，为它。
3. 打开 类向导 (Ctrl + W)，单击 自动化 选项卡、 单击 添加类，并选择 从类型库。
4. 转到目录 （例如对于是 Files/Microsoft Office/Office） Office 的安装位置，然后选择 Msppt8.olb。PowerPoint 对象库中的 PowerPoint 2000 命名 Msppt9.olb。PowerPoint 对象库中的 PowerPoint 2002 是 Msppt.olb，它位于，通过 c:/Program Files/Microsoft Office/Office10 文件夹中的默认值。PowerPoint 对象库中的 Microsoft Office PowerPoint 2003 是 Msppt.olb，它位于，通过 c:/Program Files/Microsoft Office/Office11 文件夹中的默认值
5. 选择查找的所有类，然后单击 确定 以回到您的项目。类向导已从 PowerPoint 类型库生成一些自动化"包装类"，并创建 Msppt8.h 和 Msppt8.cpp 文件。
6. 下面的代码添加到按钮处理程序：

// Start PowerPoint. _Application app; COleException e; if(!app.CreateDispatch("Powerpoint.Application", &e)) { CString str; str.Format("CreateDispatch() failed w/err 0x%08lx", e.m_sc), AfxMessageBox(str, MB_SETFOREGROUND); return; } // Make it visible. app.SetVisible(TRUE); // Get Presentations collection and add a new presentation. Presentations presSet(app.GetPresentations()); _Presentation pres(presSet.Add(TRUE)); // Get Slides collection and add a new slide. Slides slideSet(pres.GetSlides()); _Slide slide1(slideSet.Add(1, 2)); // Add text to slide, by navigating the slide as follows: // slide1.shapes(#).TextFrame.TextRange.Text { Shapes shapes(slide1.GetShapes()); Shape shape(shapes.Item(COleVariant((long)1))); TextFrame textFrame(shape.GetTextFrame()); TextRange textRange(textFrame.GetTextRange()); textRange.SetText("My first slide"); } { Shapes shapes(slide1.GetShapes()); Shape shape(shapes.Item(COleVariant((long)2))); TextFrame textFrame(shape.GetTextFrame()); TextRange textRange(textFrame.GetTextRange()); textRange.SetText("Automating PowerPoint is easy/r/n" "Using Visual C++ is powerful!"); } // Add another slide with a chart. _Slide slide2(slideSet.Add(2, 5)); // Add text to slide as before. { Shapes shapes(slide2.GetShapes()); Shape shape(shapes.Item(COleVariant((long)1))); TextFrame textFrame(shape.GetTextFrame()); TextRange textRange(textFrame.GetTextRange()); textRange.SetText("Slide 2's topic"); } { Shapes shapes(slide2.GetShapes()); Shape shape(shapes.Item(COleVariant((long)2))); TextFrame textFrame(shape.GetTextFrame()); TextRange textRange(textFrame.GetTextRange()); textRange.SetText("You can create and use charts " "in your PowerPoint slides!"); } // Add a chart where the default one was created. { // First get coordinates of old chart. float cTop, cWidth, cHeight, cLeft; Shapes shapes(slide2.GetShapes()); Shape shape(shapes.Item(COleVariant((long)3))); cTop = shape.GetTop(); cWidth = shape.GetWidth(); cHeight = shape.GetHeight(); cLeft = shape.GetLeft(); // Delete original chart. shape.Delete(); // Now add your own back where old one was. Shape tmpShape(shapes.AddOLEObject(cLeft, cTop, cWidth, cHeight, "MSGraph.Chart", "", 0, "", 0, "", 0)); } // Add another slide, with an Organization chart. _Slide slide3(slideSet.Add(3, 7)); // Add text to slide as before. { Shapes shapes(slide3.GetShapes()); Shape shape(shapes.Item(COleVariant((long)1))); TextFrame textFrame(shape.GetTextFrame()); TextRange textRange(textFrame.GetTextRange()); textRange.SetText("The rest is only limited by your Imagination"); } // Add a chart where the default one was created. { // First get coordinates of old chart. float cTop, cWidth, cHeight, cLeft; Shapes shapes(slide3.GetShapes()); Shape shape(shapes.Item(COleVariant((long)2))); cTop = shape.GetTop(); cWidth = shape.GetWidth(); cHeight = shape.GetHeight(); cLeft = shape.GetLeft(); // Delete original chart. shape.Delete(); // Now add your own back where old one was. // The next line assumes you have the Microsoft OrgChart application // installed and registered on your computer. Shape tmpShape(shapes.AddOLEObject(cLeft, cTop, cWidth, cHeight, "OrgPlusWOPX.4", "", 0, "", 0, "", 0)); } // Setup slide show properties. for(int i=1; i<=3; i++) { _Slide slide(slideSet.Item(COleVariant((long)i))); SlideShowTransition sst(slide.GetSlideShowTransition()); sst.SetEntryEffect(513); // Random. sst.SetAdvanceOnTime(TRUE); sst.SetAdvanceTime(5.0); // 5-seconds per slide. } // Prepare and run a slide show. { SlideShowSettings sss(pres.GetSlideShowSettings()); sss.SetShowType(3); // Kiosk. sss.SetLoopUntilStopped(TRUE); sss.SetRangeType(1); // Show all. sss.SetAdvanceMode(2); // Use slide timings. SlideShowWindow ssw(sss.Run()); // Run show. } // Sleep so user can watch slide show. ::Sleep(15000); // Tell PowerPoint to quit. app.Quit();

7.   实施按钮处理程序的前面添加以下行：

#include "msppt8.h" //msppt9.h for PowerPoint 2000, msppt.h for PowerPoint 2002 and PowerPoint 2003 // Ole initialization class. class OleInitClass { public: OleInitClass() { OleInitialize(NULL); } ~OleInitClass() { OleUninitialize(); } }; // This global class calls OleInitialize() at // application startup, and calls OleUninitialize() // at application exit. OleInitClass g_OleInitClass;

8.    编译并运行。