user_mbdrx 发表于 2016-4-12 13:36:38

放映模式下插入一张空白幻灯片

能否在放映模式下插入一张空白幻灯片？在当前幻灯片前、后都可以。

[*]Private Sub CommandButton1_Click()
[*]With ActivePresentation.SlideShowWindow.View
[*]ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank).Select
[*]End WithEnd Sub

复制代码
能插入，但是出现错误。运行错误'-2147188160（80048240）'：slide(undownmember):Invalid request,This view does not support selection。请问，程序如何修改？谢谢

user_rewjb 发表于 2016-4-12 15:44:53


[*]Private Sub CommandButton1_Click()
[*]Set sldNewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)End Sub

复制代码
成功！

whiteice0114 发表于 2016-4-12 17:37:35


[*]Private Sub CommandButton1_Click()
[*]With ActivePresentation.SlideShowWindow.View
[*]Set sldNewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
[*]End WithEnd Sub

复制代码
也行
页: [1]
查看完整版本: 放映模式下插入一张空白幻灯片