AfterShapeSizeChange application event not firing in PowerPoint 2013

Question

I've got a simple test .pptm file to try to debug the failure of the AfterShapeSizeChange event in PowerPoint 2013 (15.0.4659.1001) on Windows 7 x64.

In a standard module:

Public EH As New ClassEH

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

In a class module with name 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

After running InitApp, the WindowSelectionChange event is firing as expected with a selection change but the AfterShapeSizeChange event is not firing after changing the size of a shape on the slide.

This event was added in PowerPoint 2013 as per this MSDN article:

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

Any ideas?

Answer 1

The shape size change fires OK here Jamie. I have 2013 Pro (msi version)