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

user_mbdrx

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

• 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

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

复制代码
成功！

whiteice0114

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

复制代码
也行