title: AfterDragDropOnSlide PPT event is not firing
body: <p>I'm trying to write some macros for an animation addin, basically replicating the AfterEffects null object, allowing me to move and resize shapes on a PPT slide without selecting or grouping. I tag a shape as a &quot;NULL&quot; object, and I tag other shapes as &quot;CHILD&quot; objects, and I'm trying to &quot;link&quot; the two so that any change to a null object will filter down to the children.</p>
  <p>The resizing part of this works great, with the aid of the AfterShapeSizeChange PPTEvent:</p>
  <pre><code>Private Sub PPTEvent_AfterShapeSizeChange(ByVal oShp As Shape)
  
  Dim oChild As Shape
  Dim oSld As Slide
  
  Dim oldWidth As Single
  Dim oldHeight As Single
  Dim newWidth As Single
  Dim newHeight As Single
  
  Set oSld = oShp.Parent
  
  If oShp.Tags(&quot;NULL&quot;) &lt;&gt; &quot;&quot; Then
      oldWidth = CSng(oShp.Tags(&quot;NULLWidth&quot;))
      oldHeight = CSng(oShp.Tags(&quot;NULLHeight&quot;))
      
      newWidth = oShp.width
      newHeight = oShp.height
      
      oShp.Tags.Add &quot;NULLWidth&quot;, newWidth
      oShp.Tags.Add &quot;NULLHeight&quot;, newHeight
  
  
      For Each oChild In oSld.Shapes
          If oChild.Tags(&quot;CHILD&quot;) &lt;&gt; &quot;&quot; Then
              If oChild.Tags(&quot;CHILD&quot;) = oShp.Name Then
                  oChild.width = oChild.width * (newWidth / oldWidth)
                  oChild.height = oChild.height * (newHeight / oldHeight)
              End If
          End If
      Next
  End If
  
  End Sub
  </code></pre>
  <p>So, every time I resize the null object, any children on the slide are scaled in proportion to the recent changes to the null object.</p>
  <p>In theory, it would be a little easier to affect the position of the child shapes using the AfterDragDropOnSlide event. But I can't get it to fire when I run the following:</p>
  <pre><code> Private Sub PPTEvent_AfterDragDropOnSlide(ByVal oSld As Slide, ByVal X As Single, ByVal Y As Single)
  
       MsgBox &quot;Dragged afterdragdroponslide!&quot;
  
   End Sub
  </code></pre>
  <p>Even in this simple example, the event never fires when I move any object around. Some googling around suggests this event is broken, but I'm unable to find any workaround. For example, I considered creating some kind of MouseUp event that checks to see if a null object is selected (and if so, if its position has changed, and if so, the macro would shift the position of any child shapes), but this doesn't seem to be possible.</p>
  <p>Any thoughts would be much appreciated.</p>