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

这里的形状大小变化好了杰米。我有2013 Pro（msi版）

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

1 个答案: