Automating MS-Office applications






4.22/5 (13 votes)
Jun 29, 2002
2 min read

231196
This tutorial helps you to automate PowerPoint, with hints to automate other MS-Office applications
Introduction
This tutorial helps you to learn the basics of automation. With this code, you can control PowerPoint from your application. You can open PowerPoint programmatically, open any presentation, go to any slide that you want to, run the slideshow etc.
Steps to follow
By following the same steps given below, you can automate , word, excel or any Microsoft office application.
- Create a dialog based application and in the App-wizard's step 3 of 6, select the automation checkbox.
- Create buttons for Start , Run, Close, First Slide, Last Slide, Previous Slide and Next Slide functions and use the following functions accordingly.
- In your application's
InitInstance
function , add the following lines. - In your dialog's class , open class-wizard , select the automation tab, select "Add Class" ... "From a type library" and select msppt8.olb from "C:\Program Files\Microsoft Office\Office\"
- In your header file of your dialog, include the following line.
- Add the following variables in your dialog's header file.
- To start PowerPoint, you have to write this code in the Start button's function.
- To open a presentation from the hard disk, add this code in the Open button's function call.
- To close PowerPoint add this code in the Close button's function call.
- To run the slideshow use this code in the Run button's function call
- Sometimes, you might want to start all over from the first slide. To go to the first slide you can use this code.
- And similarly, to go to the last slide
- Now that you have the slideshow running, you would obviously want to go to the previous slide at some point of time. To do just that, you can use this code.
- Interested to go to the next slide now ? In that case, this function will
help you.
void CPowerPntDlg::OnBtnNext() { Presentation = app.GetActivePresentation(); SlideShowWindow = Presentation.GetSlideShowWindow(); View = SlideShowWindow.GetView(); View.Next(); }
// Initialize OLE libraries if (!AfxOleInit()) { AfxMessageBox("Failed to initialize OLE"); return FALSE; }
#include "msppt8.h"
_Application app; // app is the PowerPoint _Application object
Presentations Presentations;
_Presentation Presentation;
SlideShowView View;
SlideShowWindow SlideShowWindow;
SlideShowSettings slideshow;
Slides slides;
_Slide slide;
void CPowerPntDlg::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!"); } }
void CPowerPntDlg::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); } }
void CPowerPntDlg::OnBtnClose() { if (CanExit()) app.Quit(); }
void CPowerPntDlg::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(); }
void CPowerPntDlg::OnBtnFirst()
{
Presentation = app.GetActivePresentation();
SlideShowWindow = Presentation.GetSlideShowWindow();
View = SlideShowWindow.GetView();
View.First();
}
void CPowerPntDlg::OnBtnLast()
{
Presentation = app.GetActivePresentation();
SlideShowWindow = Presentation.GetSlideShowWindow();
View = SlideShowWindow.GetView();
View.Last();
}
void CPowerPntDlg::OnBtnPrevious()
{
Presentation = app.GetActivePresentation();
SlideShowWindow = Presentation.GetSlideShowWindow();
View = SlideShowWindow.GetView();
View.Previous();
}
Conclusion
That's it folks . Check out the other functions available for transitions, animations etc. and you can go ahead on your own. This is the basic framework and you can see how easy it is to handle PowerPoint. Its the same case with excel, word or any other Microsoft office application. All luck and have a great time. You can also check out http://support.microsoft.com/default.aspx?scid=kb;en-us;Q178749 for more information. I used this code to do remote PowerPoint presentations.