Excel VBA 質問スレ Part60

[549 デフォルトの名無しさん 2019/04/08(月) 16:59:10.82 ID:eHXY0QFN]

お前らもしかしてわざと無能演じてんの？
だったらすげえや全然気づかなかった

set b = ActiveSeet.Shapes(Application.Caller)
For Each x in ActiveSeet.Shapes
If Not x Is b Then x.Delete
Next