vba - AfterShapeSizeChange 应用程序事件未在 PowerPoint 2013 中触发

Question

我有一个简单的测试 .pptm 文件，用于尝试在 Windows 7 x64 上调试 PowerPoint 2013 (15.0.4659.1001) 中的 AfterShapeSizeChange 事件失败。

在标准模块中:

Public EH As New ClassEH

' Run to initialise PowerPoint application events
Sub InitApp()
  Set EH.App = PowerPoint.Application
End Sub

在名为 ClassEH 的类模块中:

Public WithEvents App As PowerPoint.Application

Private Sub App_WindowSelectionChange(ByVal Sel As Selection)
  Debug.Print "App_WindowSelectionChange"
End Sub

Private Sub App_AfterShapeSizeChange(ByVal shp As Shape)
  Debug.Print "App_AfterShapeSizeChange"
End Sub

运行 InitApp 后，WindowSelectionChange 事件按预期触发并发生选择更改，但 AfterShapeSizeChange 事件在更改幻灯片上形状的大小后未触发。

此事件是根据这篇 MSDN 文章添加到 PowerPoint 2013 中的:

http://msdn.microsoft.com/en-us/library/office/jj227375(v=office.15).aspx

有什么想法吗？

Answer 1

Jamie 形状大小的改变触发了 OK。我有2013 Pro(msi版)