如何在PowerPoint VBA中选择全部？

Question

我已经挣扎了一段时间，以找到VBA代码来选择演示文稿的所有幻灯片和所有形状（由于某种原因，这似乎没有人的兴趣）。我试图设置所有幻灯片的范围，然后选择该范围的所有形状，但这不起作用。我还尝试通过幻灯片循环幻灯片并积累选择（msofalse），但是为此，您还需要激活每张幻灯片，而我无法做到这一点。 我认为立即选择所有幻灯片和形状对于操纵字体或运行完整咒语检查很有用。您的帮助将不胜感激！！

Answer 1

通常可以避免在VBA中选择对象。这是不可靠和缓慢的。相反，循环遍历每个幻灯片上的每个形状并执行所需的任何操作：

Sub DoStuffToShapes()
    Dim oSlide as Slide
    Dim oShape as Shape

    For each oSlide in ActivePresentation.Slides
        For each oShape in oSlide.Shapes
            'Do stuff to the shape
        Next oShape
    Next oSlide
End Sub

如果您创建了一个字体主题并将其应用于幻灯片主和布局，则通常更容易，更快地通过修改主题和/或Master来更改字体而不是使用VBA。拼写检查也不需要VBA。