如何播放幻灯片.ppt文件并控制其显示的大小

大伟 2007-05-14 10:34:22

我想做个PPT播放器，让PPT播放的时候显示在整个窗口（不是全屏），可随窗口移动，并可随窗口大小变化时大小也随之改变。
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant vPowerPoint;
LPCTSTR lpFileName = "D:\\PLAY_PPT\\演示文稿.pps";
try
{
vPowerPoint = CreateOleObject("PowerPoint.Application");
}
catch(...)
{
ShowMessage("Error...");
}
// 使 Powerpoint 界面可视
vPowerPoint.OlePropertySet("Visible", true);
// Powerpoint的版本
String strVersion = vPowerPoint.OlePropertyGet("Version");
// 打开一个剪辑
vPowerPoint.OlePropertyGet("Presentations")
.OleFunction("Open", lpFileName, false, false, true);
// 幻灯片总数
int nSlidesCount = vPowerPoint.OlePropertyGet("ActivePresentation")
.OlePropertyGet("Slides").OlePropertyGet("Count");
// 放映这个剪辑
vPowerPoint.OlePropertyGet("ActivePresentation")
.OlePropertyGet("SlideShowSettings").OleFunction("Run");

// 下一个幻灯片
Variant vSlideShowWin = vPowerPoint.OlePropertyGet("ActivePresentation")
.OlePropertyGet("SlideShowWindow");
vSlideShowWin.OlePropertyGet("View").OleFunction("Next");
// 跳到第二页
vSlideShowWin.OlePropertyGet("View").OleFunction("GoToSlide", 2);
// 返回上一页
vSlideShowWin.OlePropertyGet("View").OleFunction("Previous");
// 跳到最后一页
vSlideShowWin.OlePropertyGet("View").OleFunction("Last");
// 显示当前幻灯名称
String strSlideName = vSlideShowWin.OlePropertyGet("View")
.OlePropertyGet("Slide").OlePropertyGet("Name");
// 运行某个宏
// vPowerPoint.OleFunction("Run", "'1.ppt'!Macro1");
// 关闭Powerpoint
vPowerPoint.OleProcedure("Quit");
vPowerPoint = Unassigned;
}

用了妖哥的这段代码可以播放PPT，可是幻灯片的大小该如何控制呢？
请大家指导一下谢谢。

...全文

1295 16 打赏收藏转发到动态举报

写回复

用AI写文章

16 条回复

切换为时间正序

请发表友善的回复…

发表回复

举人老爷 2012-02-29

打赏
举报

你好你的问题有点没有解决，我现在也在找这个问题，还是没有解决。解决了能发给我吗？
308564493·QQ.com

win98isme 2011-12-09

打赏
举报

上面那段代码我运行时怎么提示 “无效的类别字符串”呀？？

麻酱面条 2007-05-27

打赏
举报

关注一下！

大伟 2007-05-23

打赏
举报

还有别的好办法吗？

大伟 2007-05-23

打赏
举报

还有没有更好的办法啊？

大伟 2007-05-21

打赏
举报

PPT TO BMP 那怎么转换阿？如何把PPT里面的内容转换成BMP 呢？

constantine 2007-05-21

打赏
举报

给你个笨办法，ppt2bmp，然后显示bmp就行的，大小控制对于bmp来说就简单了，以前我们公司做ppt跟视频同步就这样搞的。不过以前我们公司是做在web里面的。我只是提供一种思路。没搞过office的东西

大伟 2007-05-21

打赏
举报

我按楼上的说法修改了代码
不过还有问题，vPowerPoint.OlePropertyGet("ActivePresentation").OlePropertyGet("SlideShowSettings").OleFunction("Run");执行后窗体才有句柄，而该语句一执行马上就会全屏显示阿！

void SetPptSize()
{
HWND hwnd = NULL;
do
{
hwnd = FindWindow(0, "PowerPoint 幻灯片放映 - “演示文稿2.ppt”");

}while(hwnd == NULL);
SetWindowPos(hwnd, NULL, 0, 0, 800, 600, SWP_NOMOVE | SWP_NOZORDER);

}
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Variant vPowerPoint;
LPCTSTR lpFileName = "D:\\易码通工作\\PLAY_PPT\\演示文稿2.ppt";
try
{
vPowerPoint = CreateOleObject("PowerPoint.Application");
}
catch(...)
{
ShowMessage("Error...");
}
// 使 Powerpoint 界面可视
vPowerPoint.OlePropertySet("Visible", true);
// Powerpoint的版本
String strVersion = vPowerPoint.OlePropertyGet("Version");
// 打开一个剪辑
vPowerPoint.OlePropertyGet("Presentations").OleFunction("Open", lpFileName, false, false, true);
vPowerPoint.OlePropertySet("Visible", false);
// 幻灯片总数
int nSlidesCount = vPowerPoint.OlePropertyGet("ActivePresentation").OlePropertyGet("Slides").OlePropertyGet("Count");
// 放映这个剪辑
vPowerPoint.OlePropertyGet("ActivePresentation").OlePropertyGet("SlideShowSettings").OleFunction("Run");

// 设置播放大小
SetPptSize(); //还没有改变窗口大小的时候PPT会全屏显示
Variant vSlideShowWin = vPowerPoint.OlePropertyGet("ActivePresentation").OlePropertyGet("SlideShowWindow");
for(int i=0; i<nSlidesCount;i++)
{
// 下一个幻灯片
vSlideShowWin.OlePropertyGet("View").OleFunction("Next");
}

// 关闭Powerpoint
vPowerPoint.OleProcedure("Quit");
vPowerPoint = Unassigned;
}
//---------------------------------------------------------------------------

soloxiao 2007-05-19