Visio dragDrop図形の位置が更新されない

Question

このガイドでは、https://msdn.microsoft.com/en-us/library/office/ff767482.aspxでは、図形をドラッグアンドドロップするとイベントトリガを取得できます。しかし、問題は、このイベントトリガーを受け取ったときに形状の位置がドロップ位置に更新されないということです。私の質問は、Visioで他の図形とシェイプのオーバーラップチェックを行うためにドロップした後、シェイプの更新された位置を取得する方法です。あなたの最初のIf声明で

Dim strMessage As String 

'Find out which event and event extension fired 
Select Case nEventCode 
    Case visEvtCodeMouseMove 
     Dim strInfo As String 
     If (pSubjectObj.DragState = visMouseMoveDragStatesDrop) Then 
      strMessage = "MouseMove - dragDrop" 

      'Shape position is not updated to drop position here 

     End If 
    Case Else 
     strMessage = "Other (" & nEventCode & ")" 
End Select 

'Display the event name and the event code 
If (Len(strMessage)) Then 
    Debug.Print strMessage 
End If 

エンド機能

Answer 1

、対象のオブジェクトは、xとyプロパティ（インチノート）を持つMouseEventオブジェクトでなければなりません。それらを使用して、ターゲットシェイプがドロップされた図形を検索することができます。

Dim evtMouse As Visio.MouseEvent 
Dim selSearchShapes As Visio.Selection 
... 
Set evtMouse = pSubjectObj 

Set selSearchShapes = evtMouse.Application.ActivePage.SpatialSearch(evtMouse.x, _ 
    evtMouse.y, _ 
    Visio.VisSpatialRelationCodes.visSpatialContainedIn, _ 
    0, _ 
    Visio.VisSpatialRelationFlags.visSpatialFrontToBack) 

Debug.Print "Spatial search found: " & selSearchShapes.Count 

If selSearchShapes.Count > 0 Then 
    Debug.Print "Spatial search - top shape: " & selSearchShapes(1).NameID 
End If