How delete all .png shapes in active window visio ? VBA

Question

I would like do detele all picture png from an active window from MS Visio in VBA so I tried this:

Sub DeleteAllShapes()


    Dim vsoSelection As Visio.Selec