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

Posted 2023-05-07

【中文标题】打开 .ppsm 也会打开 powerpoint 编辑器

【英文标题】：Opening .ppsm also opens powerpoint editor

【发布时间】：2019-08-09 11:13:13

【问题描述】：

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

这是我正在使用的潜艇：

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

【参考方案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