VC6.0控制PPT很方便,网上的代码也很多,到了.NET,操作office的方式有所改进,完全按6.0的方式会出很多问题,根据做的有关用VS2008操作PPT的工作,整理一下。
开始是要用VS2005的,发现问题很多,似乎根本都调不了,改到2008后很快就能运行了,按理说两个应该是差不多的,不知道2005出什么问题了。现在用2008操作PPT:
首先创建一个MFC的对话框程序,如图
然后添加PPT的类库(word,excel同理),如下
选择如下
选择ppt类库
添加接口(如果不知道用哪个,那就都添加)
确定,将添加很多头文件到工程,如下
要使用哪个类,可以把相应的头文件包含到stdafx.h文件中,注意要添加如下的代码,好像是兼容的问题
#import "C:\\Program Files\\Common Files\\Microsoft Shared\\OFFICE11\\mso.dll" \rename_namespace("Office"), named_guids, exclude("Pages")using namespace Office;
#import "C:\\Program Files\\Common Files\\Microsoft Shared\\VBA\\VBA6\\VBE6EXT.olb" \rename_namespace("VBE6")using namespace VBE6;
上面的路径随各人机子而已。上面的代码可以加到stdafx.h的最后,然后在其后面添加要用的类的头文件,如
#import "C:\\Program Files\\Common Files\\Microsoft Shared\\OFFICE11\\mso.dll" \rename_namespace("Office"), named_guids, exclude("Pages")using namespace Office;
#import "C:\\Program Files\\Common Files\\Microsoft Shared\\VBA\\VBA6\\VBE6EXT.olb" \rename_namespace("VBE6")using namespace VBE6;
#include "CApplication.h"#include "CPresentations.h"#include "CPresentation.h"
#include "CSlideShowView.h"#include "CSlideShowWindows.h"#include "CSlideShowWindow.h"#include "CSlideShowSettings.h"#include "CSlides.h"#include "CSlide.h"#include "CDocumentWindow.h"
#include "CShapes.h"#include "CShape.h"#include "CTextFrame.h"#include "CTextRange.h"#include "CView0.h"#include "CTable0.h"#include "CShapeRange.h"#include "CCellRange.h"#include "CCell.h"#include "CSelection.h"#include "CRows.h"#include "CRow.h"
以上类是比较常用的,前3个一般必须要,后面的根据自己的使用情况。
另外还要把以上添加的每个头文件的import注释掉,如CApplication.h
// Machine generated IDispatch wrapper class(es) created with Add Class from Typelib Wizard
//#import "D:\\Program Files\\Microsoft Office\\OFFICE11\\MSPPT.OLB" no_namespace// CApplication wrapper class
一般如果编译出现好多错,就看看是否是哪个头文件的import没有注释掉,这个很容易忘掉。
方便起见,给dlg类添加如下成员变量和函数
public:
CApplication app;CPresentations Presentations;CPresentation Presentation;
CSlideShowView View;
CSlideShowWindows SlideShowWindows;CSlideShowWindow SlideShowWindow;CSlideShowSettings slideshow;CSlides slides;CSlide slide;CDocumentWindow documentwindow;CView0 view0;CShapeRange ShapeRange;CCellRange CellRange;CCell Cell1;CSelection Selection;
BOOL InsertText(CString str, int pageNum, int shapeNum);BOOL InsertForm(CString str, int pageNum, int shapeNum, int rownum, int colomnnum);BOOL InsertPicture(LPTSTR path, int pageNum, int shapeNum);BOOL InsertObject(LPTSTR path, int pageNum, int shapeNum);
添加如下按钮的实现代码
//打开ppt应用程序void CVS08PPTForBlogDlg::OnBnClickedButtonStart(){// TODO: Add your control notification handler code hereif(!app.CreateDispatch("Powerpoint.Application")){AfxMessageBox("Couldn’t start PowerPoint.");}else // Make PowerPoint visible and display a message{app.put_Visible(TRUE);TRACE("PowerPoint is Running!");}}
//打开pptvoid CVS08PPTForBlogDlg::OnBnClickedButtonOpen(){// TODO: Add your control notification handler code herestatic 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 nameCString strFileName;strFileName = FileDlg.GetPathName();
if(!strFileName.IsEmpty()){Presentations = app.get_Presentations();Presentation = Presentations.Open(strFileName,0,0,1);}}
//关闭pptvoid CVS08PPTForBlogDlg::OnBnClickedButtonClose(){// TODO: Add your control notification handler code here//documentwindow=app.get_ActiveWindow();//获得活动的文档//documentwindow.Close();//关闭当前活动的文档app.Quit();}
//开始放映void CVS08PPTForBlogDlg::OnBnClickedButtonRun(){// TODO: Add your control notification handler code herePresentation =app.get_ActivePresentation();
slides = Presentation.get_Slides();// Show the first slide of the presentationslide = slides.Item(COleVariant((long)1));
//Run the showslideshow = Presentation.get_SlideShowSettings();slideshow.Run();}
//下一张放映的pptvoid CVS08PPTForBlogDlg::OnBnClickedButtonPrevious(){// TODO: Add your control notification handler code herePresentation = app.get_ActivePresentation();SlideShowWindow = Presentation.get_SlideShowWindow();View = SlideShowWindow.get_View();View.Previous();}
//上一张放映的pptvoid CVS08PPTForBlogDlg::OnBnClickedButtonNext(){// TODO: Add your control notification handler code herePresentation = app.get_ActivePresentation();SlideShowWindow = Presentation.get_SlideShowWindow();View = SlideShowWindow.get_View();View.Next();}
void CVS08PPTForBlogDlg::OnBnClickedButtonInserttext(){// TODO: Add your control notification handler code hereInsertText(CString("测试1"),1,1);}
void CVS08PPTForBlogDlg::OnBnClickedButtonInsertform(){// TODO: Add your control notification handler code hereInsertForm(CString("测试1"),2,1,1,1);}
void CVS08PPTForBlogDlg::OnBnClickedButtonInsertpicture(){// TODO: Add your control notification handler code here//添加图片InsertPicture("d:\\resource\\test.jpg", 2, 2);}
void CVS08PPTForBlogDlg::OnBnClickedButtonInsertobject(){// TODO: Add your control notification handler code here//添加视频InsertObject("d:\\resource\\rbf.wmv",3,1);}
//在第pageNum张ppt的第shapeNum个shape插入文字str(shapeNum为按下tab时的顺序号)BOOL CVS08PPTForBlogDlg::InsertText(CString str, int pageNum, int shapeNum){CShapesm_Shapes;CShapem_Shape;Presentation = app.get_ActivePresentation();slides = Presentation.get_Slides();slide = slides.Item(COleVariant((long)pageNum));m_Shapes = slide.get_Shapes();m_Shape = m_Shapes.Item(COleVariant((long)shapeNum));
// 插入文字CTextFramem_TextFrame;CTextRangem_TextRange;
m_TextFrame = m_Shape.get_TextFrame();m_TextRange = m_TextFrame.get_TextRange();m_TextRange.put_Text(str);
return TRUE;}
//在第pageNum张ppt的第shapeNum个shape表示的表格的rownum行colomnnum列插入文字strBOOL CVS08PPTForBlogDlg::InsertForm(CString str, int pageNum, int shapeNum, int rownum, int colomnnum){CShapesm_Shapes;CShapem_Shape;CTable0 table;CTextFramem_TextFrame;CTextRangem_TextRange;CCell Cell1;
Presentation = app.get_ActivePresentation();slides = Presentation.get_Slides();slide = slides.Item(COleVariant((long)pageNum));m_Shapes = slide.get_Shapes();m_Shape = m_Shapes.Item(COleVariant((long)shapeNum));
table = m_Shape.get_Table();Cell1 = table.Cell(rownum,colomnnum);m_Shape = Cell1.get_Shape();
m_TextFrame = m_Shape.get_TextFrame();m_TextRange = m_TextFrame.get_TextRange();m_TextRange.put_Text(str);
return TRUE;}
BOOL CVS08PPTForBlogDlg::InsertPicture(LPTSTR path, int pageNum, int shapeNum){CShapesm_Shapes;CShapem_Shape;Presentation = app.get_ActivePresentation();slides = Presentation.get_Slides();slide = slides.Item(COleVariant((long)pageNum));m_Shapes = slide.get_Shapes();m_Shape = m_Shapes.Item(COleVariant((long)shapeNum));
// 插入图片float fleft = m_Shape.get_Left();float ftop = m_Shape.get_Top();float fwidth = m_Shape.get_Width();float fheight = m_Shape.get_Height();m_Shapes.AddPicture(path, FALSE, TRUE, fleft, ftop, fwidth, fheight);
return TRUE;}
BOOL CVS08PPTForBlogDlg::InsertObject(LPTSTR path, int pageNum, int shapeNum){CShapesm_Shapes;CShapem_Shape;Presentation = app.get_ActivePresentation();slides = Presentation.get_Slides();slide = slides.Item(COleVariant((long)pageNum));m_Shapes = slide.get_Shapes();m_Shape = m_Shapes.Item(COleVariant((long)shapeNum));
// 插入对象float fleft = m_Shape.get_Left();float ftop = m_Shape.get_Top();float fwidth = m_Shape.get_Width();float fheight = m_Shape.get_Height();m_Shapes.AddOLEObject(fleft, ftop, fwidth, fheight,NULL,path,0,"",0,"",0);
return TRUE;}
以上代码是假设ppt上已经有很多shape,如果是想往ppt上添加各种shape,可以调用shapes对象的Add..函数来实现,如添加表格
CShapesm_Shapes;CShapem_Shape;CTable0 table;CTextFramem_TextFrame;CTextRangem_TextRange;CCell Cell1;CRows rows;
Presentation = app.get_ActivePresentation();slides = Presentation.get_Slides();slide = slides.Item(COleVariant((long)1));m_Shapes = slide.get_Shapes();m_Shape = m_Shapes.Item(COleVariant((long)17));
// 插入表格float fleft = m_Shape.get_Left();float ftop = m_Shape.get_Top();float fwidth = m_Shape.get_Width();float fheight = m_Shape.get_Height();m_Shape = m_Shapes.AddTable(2,6,fleft, ftop, fwidth, fheight); // 插入2行6列的表格table = m_Shape.get_Table();rows = table.get_Rows();
rows.Add(1); // 第1行后插入一行rows.Add(1); // 第1行后插入一行rows.Add(2); // 第2行后插入一行rows.Add(3); // 第3行后插入一行
return;
提示:由于没有帮助文件,所以如果有想要完成的功能,可以用下面的方法
1,录制VBA宏,根据录制的宏代码改编c++代码
2,猜函数,比如要插入文本,那就整个工程搜索put_Text,看哪个类有实现这个功能的函数,然后去凑那个函数。
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();View.Last();}
15.获得幻灯片总数void CXXXDlg::OnBtnGetSlidesCount(){
Presentations=app.GetActivePresentation();
slides=Presentation.GetSlides();
long endpos=slides.GetCount(); //获得幻灯片总数}
人生最大的错误是不断担心会犯错