使用Applescript调整Powerpoint幻灯片窗口的大小

我正在尝试使用Applescript和Powerpoint 2011 for Mac调整幻灯片窗口的大小

在过去，我使用VBA来完成这项工作，但在这里，似乎不可能使用Applescript。 剧本是：

tell application "Microsoft PowerPoint"

set show type of slide show settings of active presentation to slide show type speaker

set theSSW to run slide show slide show settings of active presentation

set height of theSSW to 300

set width of theSSW to 400

end tell

（上面的脚本直接从Applescript引用中复制）

问题是幻灯片窗口被裁剪，但没有调整大小。 这让我发疯了

有什么想法吗

编辑：使用Applescript在Mac上启动和打开PPT文件肯定有两种方法：

在“演讲者模式”下，窗口缩小，但仅显示演示文稿的一部分。演示文稿没有调整大小，但我可以通过单击鼠标前进

在“窗口模式”下，演示文稿将调整大小。我可以查看所有幻灯片，但我不能通过鼠标单击前进。（如果我手动设置“窗口模式”，则即使我随后使用Applescript调整其大小，鼠标单击仍然有效）

---

如果我在Windows上工作，这个问题就不存在。

在这里完全盲目飞行，但是如果你这样做，你会得到什么：

tell application "Microsoft PowerPoint"
set ssw to slide show window of it
properties of ssw
end tell

或

我正在寻找的是窗口属性，希望可以更改。我希望得到幻灯片放映窗口的高度和宽度，或者（更常见的情况是）边界。我只是不清楚PowerPoint的语法（没有）

[编辑]我从pdf文档中看到bounds是只读的。嗯。我必须着手测试软件。

这（在VBA中）将为您提供一个显示整个幻灯片的窗口：

With ActivePresentation
  With .SlideShowSettings
    .showType = ppShowTypeWindow
    .ShowScrollbar = msoFalse ' might or might not need this
    .Run
  End with
  With .SlideShowWindow
    .Height = 300
    .Width = 400
  End With
End with

你的演讲需要一些自我提升的方法（正如你所注意到的）。 您可能希望手动或以编程方式为每张幻灯片添加一个高级按钮。

---

将幻灯片翻译成Applescript由读者自行决定。

胡乱猜测：您可能需要告诉PPT以窗口模式而不是全屏模式观看幻灯片。在启动活动演示文稿之前，您需要更改其幻灯片放映设置。谢谢Steve。当您说“以窗口模式观看幻灯片”时，您的意思是将“放映类型”设置为“窗口”吗？因为我是用--show type of slide show settings of active presentation to slide show type WINDOW--这段代码调整了演示文稿的大小，但我不能用鼠标单击前进。。我不知道为什么。。我是否应该在其他位置而不是在“放映类型”中设置“窗口模式”？在“幻灯片放映设置”对话框中，选择“个人浏览（窗口）”。这将随着鼠标点击而推进。如果您选择“在信息亭（全屏）浏览”，您可能可以设置窗口大小，但必须添加导航按钮等；kiosk模式会禁用所有常用的按键。@Steve Rindsberg我应该以编程方式完成所有操作。将幻灯片放映设置为窗口后，powerpoint似乎已损坏，我也无法通过“幻灯片放映设置”对话框修复它。使其工作的唯一方法是在设置对话框中设置（手动）扬声器模式，保存关闭Powerpoint并再次打开它以将其设置为窗口模式。修改窗口尺寸的属性是幻灯片放映窗口对象中的高度和宽度，该对象从以下位置返回--set theSSW to run slide show slide show--I实际上可以调整窗口的大小，但幻灯片被裁剪，我只能看到其中的一部分，不能看到调整大小的整个幻灯片。

With ActivePresentation
  With .SlideShowSettings
    .showType = ppShowTypeWindow
    .ShowScrollbar = msoFalse ' might or might not need this
    .Run
  End with
  With .SlideShowWindow
    .Height = 300
    .Width = 400
  End With
End with