打开 .ppsm 也会打开 powerpoint 编辑器

Question

我在 PowerPoint 幻灯片放映中有一个宏，激活它后应该打开一个随机的 .ppsm 幻灯片放映。它正确地做到了这一点，但出于某种原因，它不仅打开了幻灯片，而且还在 PowerPoint 编辑器中打开了它，我不需要它这样做。在 Powerpoint 2016 中这样做时，它会在编辑器中显示该幻灯片的幻灯片，在 Powerpoint 2010（这是我最需要它工作的版本）中，它只会打开编辑器的空白副本。有什么方法可以防止这个 window 打开吗？

这是我正在使用的潜艇：

Public Sub OpenROD()

Dim random_number As Integer

Randomize

random_number = Int(10 * Rnd) + 1

Presentations.Open FileName:="C:\Users\name\Desktop\NEW ROD\rod" & random_number & ".pps", _ 
ReadOnly:=True, WithWindow:=True

With ActivePresentation.SlideShowSettings.Run
End With

End Sub

Answer 1

我自己找到了答案所以张贴在这里以防有人遇到同样的问题：

Public Sub OpenROD()

Dim Random_Number As Integer
Dim NewPres As Presentation

Randomize
Random_Number = Int(10 * Rnd) + 1

   Set NewPres = Presentations.Open(FileName:=("C:\Users\name\Desktop\NEW ROD\rod" & _
    Random_Number & ".pps"), WithWindow:=False)
   NewPres.SlideShowSettings.Run

End Sub

打开 .ppsm 也会打开 powerpoint 编辑器

Opening .ppsm also opens powerpoint editor

powerpoint

vba