AfterShapeSizeChange 应用程序事件未在 PowerPoint 2013 中触发答案

【问题标题】：AfterShapeSizeChange application event not firing in PowerPoint 2013AfterShapeSizeChange 应用程序事件未在 PowerPoint 2013 中触发
【发布时间】：2018-03-11 13:43:01
【问题描述】：

我有一个简单的测试 .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

有什么想法吗？

【问题讨论】：

标签： vba powerpoint powerpoint-2013

【解决方案1】：

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

【讨论】：

我已经很久没有发布这个问题了，但我刚刚在 2016 年再次测试了这个问题（版本 1611 构建 7571.2109 / 7095）并且 AfterShapeSizeChange 事件仍然没有为我触发！
两年后同样的问题已在 EE 中发布experts-exchange.com/questions/28999421/…
Jamie，这个事件非常不可靠。我看到它有时会起作用。但它唯一一次在调整大小时触发 100% 的时间是使用 SmartArt 和图表。所有其他形状类型都已命中或未命中。过去曾向开发团队报告过。