高手指教，这句话怎么用ActivePresentation.SlideShowSettings.ShowType = ppShowTypeWindow

Question

刚在别人帖了里看到这句话
ActivePresentation.SlideShowSettings.ShowType   =   ppShowTypeWindow
目的是使vb里的powerpoint以窗口而非全屏模式播放。但我怎么也没看懂。这句话应该怎么用，放在哪里？里面的ActivePresentation、SlideShowSettings、ShowType以及后面的ppShowTypeWindow分别是什么意思，请高手指教

Answer 1

ppShowTypeWindow应该是一个常数吧？
ActivePresentation是不是你ppt对象里面的属性啊？

Answer 2

ole属性里没有这个ActivePresentation，不过搜搜网上，好多ActivePresentation，还找开微软官方网里的一段示例代码里也有这个东西

Answer 3

查了powerpoint中VisualBasic编辑器中的帮助：ActivePresentation 属性
                返回一个 Presentation 对象，该对象代表在活动窗口中打开的演示文稿。只读。请注意，如果嵌入的演示文稿是即时激活的，则 ActivePresentation 属性返回该嵌入演示文稿。
SlideShowSettings 属性
                返回一个 SlideShowSettings 对象，该对象代表指定演示文稿的幻灯片放映设置。只读。
ShowType 属性
                返回或设置指定幻灯片放映的放映类型。可为下列 PpSlideShowType 常数之一： ppShowTypeKiosk、 ppShowTypeSpeaker 或 ppShowTypeWindow。可读写。Long 类型。----------------- Dim   pptApp   As   PowerPoint.Application   
 Dim   pptPres   As   PowerPoint.Presentation    Set   pptApp   =   New   PowerPoint.Application   
 Set   pptPres   =   pptApp.Presentations.Open("e:\chap2.ppt")   .....   pptPres.SlideShowSettings.ShowType   =   ppShowTypeWindow.....
   pptPres.SlideShowSettings.Run

Answer 4

pptPres.SlideShowSettings.ShowType =  PpSlideShowType.ppShowTypeWindow???

Answer 5

跪谢大哥，我觉得你已经说得很明白了，可是我太笨，还是不知道该怎么用。
Dim   pptApp   As   PowerPoint.Application   
Dim   pptPres   As   PowerPoint.Presentation   
这里的PowerPoint.Application和PowerPoint.Presentation是什么，我真接粘到代码里不行，说这是用户未定义类型，我试过用ole控件和直接用可插入对像show和slide都不行，能给个具体的做法吗？谢谢了

Answer 6

我刚才在powerpoint程序里面打开vb编辑器，在里面加上上面的代码就能用。但我是想在用vb设计的程序里面来加载powerpoint文档，并进行控制，我用过ole控件以及show、slide可插入对象，都没实现我要的效果，该怎么做呢

Answer 7

Set  pptApp    = CreateObject("PowerPoint.Application")
pptApp.Visible = TrueSet pptPres = a.Presentations.Open("e:\chap2.ppt")  'Presentation 对象With pptPres.SlideShowSettings
   .ShowType = 2
   .Run
End With

Answer 8

Set pptPres = pptApp.Presentations.Open("e:\chap2.ppt")  'Presentation 对象
我这里是打开已有的文件

Answer 9

运行到Set pptPres = pptApp.Presentations.Open("e:\chap2.ppt")时出现错误：
　　实时错误'-2147188160（80048240）':
     presentations(unknow member);invalid request.The powerpoint frame window does not exist.
　　我也在E：盘下放了一个chap2.ppt，怎么会出现这样的错误呢

Answer 10

运行到Set pptPres = pptApp.Presentations.Open("e:\chap2.ppt")时出现错误：
　　实时错误'-2147188160（80048240）':
     presentations(unknow member);invalid request.The powerpoint frame window does not exist.你有这句吗？
pptApp.Visible = True
我不知道你的代码？要不这样
OLE1.object.SlideShowSettings.ShowType = 2
OLE1.object.SlideShowSettings.Run

Answer 11

我没有任何代码，就是想把powerpoint放到我的窗体里进行控制，作为我的程序的一部分。
楼上大哥，我用你下面的代码
OLE1.object.SlideShowSettings.ShowType = 2
OLE1.object.SlideShowSettings.Run
可以了，谢谢大哥。
你这些代码从哪里能学到，为什么我在键入OLE1.object.的时候不会出现任何属性、方法之类的代码提示

Answer 12

又出来新问题了
我在窗体上放了一个OLE1控件
又用菜单编辑器加了个菜单－＞文件
然后写下如下代码
Private Sub Form_Load()
  OLE1.CreateEmbed "c:\vb\q.ppt"
  OLE1.object.SlideShowSettings.ShowType = 2
End Sub
现在运行后双击ole1可以以窗口形式播放powerpoint，这正是我梦寐以求的效果。可是新问题随之而来，powerpoint在播放时把我的form的菜单替换成它的菜单了，这怎么解决？

Answer 13

你这些代码从哪里能学到，为什么我在键入OLE1.object.的时候不会出现任何属性、方法之类的代码提示
=========================
这是因为object是一个后期运行时才进行绑定的对象，设计时不知道你绑定的是什么，自然不会出现自动完成提示，只要你的对象有那个属性就可以了

Answer 14

PowerPoint Visiual Basic编辑器中的帮助
SlideShowWindow 对象
....
With ActivePresentation.SlideShowSettings
    .ShowType = ppShowTypeSpeaker
    With .Run
        .Height = 300
        .Width = 400
    End With
End With--------------------------------
With OLE1.object.SlideShowSettings
    .ShowType = 1  'ppShowTypeSpeaker=1,ppShowTypeWindow=2,...
    With .Run
        .Left = Me.ScaleX(Me.Left + OLE1.Left + 50, vbTwips, vbPoints)
        .Top = Me.ScaleY(Me.Top + OLE1.Top + 380, vbTwips, vbPoints)
        .Width = Me.ScaleX(OLE1.Width, vbTwips, vbPoints)
        .Height = Me.ScaleY(OLE1.Height, vbTwips, vbPoints)
    End With
End With