Sub 動画_メディアプレーヤーを削除する()

  For Each メディアプレーヤー In ActiveSheet.Shapes 'Shapesを順次チェック
  
    If メディアプレーヤー.Type = msoOLEControlObject Then 'タイプをチェック
    
      メディアプレーヤー.Delete
      
    End If
    
  Next メディアプレーヤー

End Sub