PowerPoint 2013 宏运行缓慢（重绘问题？）

Question

我有一个宏可以让页面上的每个形状都可见（我还有其他宏可以让它们不可见）。代码如下：

Dim Slide As Integer
Slide = SSW.View.CurrentShowPosition
If Slide = 1 Then
    For Each shp In ActivePresentation.Slides(2).Shapes
        shp.Visible = True
    Next shp
End if

这个宏需要 forever 才能运行。我怀疑这是因为每次显示形状时它都会重新绘制屏幕。

这不是必需的，事实上，当此宏运行时，幻灯片甚至不会显示在屏幕上（它在幻灯片 1 上运行，但使幻灯片 2 上的形状可见）。有没有办法让这个运行更快？禁用屏幕刷新还是什么？

我从http://www.vbaexpress.com/forum/showthread.php?33671-Solved-PP2010-ScreenUpdating-False 尝试了 Shyam 的解决方案，但它不起作用。他只到 2010 年，我用的是 2013 年。

Answer 1

您的代码无法正常工作。我把它改成了这个，它几乎可以在一张有 175 种形状的幻灯片上立即生效：

' Put this at the top of every module; builds character, keeps you out of trouble
Option Explicit  

Sub ThisWorks()

' Always dim ALL variables
Dim Slide As Long   ' SlideIndex is a Long, not an Integer
Dim oSh As Shape

' Replaced your SSW with this:
Slide = SlideShowWindows(1).View.CurrentShowPosition
If Slide = 1 Then
    For Each oSh In ActivePresentation.Slides(2).Shapes
        ' I was toggling them back and forth as a test
        ' oSh.Visible = Not oSh.Visible
        oSh.Visible = True
    Next
End If

' Delete this when it's no longer needed
MsgBox "Done"

End Sub