Question

我正在尝试使用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 Reference复制）

问题是幻灯片显示窗口已裁剪但未调整大小。这让我很疯狂。

有什么想法吗？

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

在“扬声器模式”中，窗口缩小，但只显示部分演示文稿。演示文稿没有调整大小，但我可以点击鼠标。

在“窗口模式”中，演示文稿会调整大小。我可以查看所有幻灯片，但我无法在鼠标点击上前进。（如果我手动设置“窗口模式”，即使我用Applescript调整它的大小，鼠标点击也能正常工作）

如果我在Windows上工作，则此问题不存在。

Answer 1

在这里完全失明，但如果你这样做，你会得到什么：

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

或

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

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

[编辑]好吧，我从pdf文档中看到边界是只读的。嗯。我必须把手放在sw上进行测试。

Answer 2

这个（在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由读者自行决定。

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

2 个答案: