The shapes  do not have double-click events. To achieve what you want you
could write a new class object which has a double-click event. This is way
beyond anything I have tried.

OR

You could use the before double-click event of the worksheet and then test
target to find  out where the double-click took place. I think that the target
would be the underlying cell.

I attempted to write this subroutine  which is called when the Shape is
clicked , or called again when the Shape is double  clicked.

Public ClickTime As Integer

Sub DoubClickShape()
Dim PauseTime, Start, Finish, TotalTime as single
Start = Timer
PauseTime = 0.5

If ClickTime >= 1 Then
ClickTime = 2
Else
ClickTime = 1
End If

Do While Timer < Start + PauseTime
DoEvents ' click  the shape again or just don't click anything.
Loop

If ClickTime = 2 Then
MsgBox "Double Click" ' OR other subroutine
ClickTime = 0
End
Else
MsgBox "Single Click" ' OR other subroutine
ClickTime = 0
End If

End Sub

The Sub can work  but it is too slow to capture the double click, so
let me see if I can work out your suggestion.