首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

高手指教,这句话如何用ActivePresentation.SlideShowSettings.ShowType = ppShowTypeWindow

2012-01-16 
高手指教,这句话怎么用ActivePresentation.SlideShowSettings.ShowTypeppShowTypeWindow刚在别人帖了里看

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

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

热点排行