スポンサーリンク
スポンサーリンク
Sub ドロップダウンリストを全て削除()
Dim MyObj As Object
For Each MyObj In ActiveSheet.Shapes
If MyObj.Type = 8 Then MyObj.Delete
Next
End Sub
Dim MyObj As Object
For Each MyObj In ActiveSheet.Shapes
If MyObj.Type = 8 Then MyObj.Delete
Next
End Sub
全てのシートのオブジェクトを削除する場合
Sub 全てのシートのドロップダウンリストを削除()
Dim MyObj As Object
For i = 1 To Worksheets.Count
Sheets(i).Select
For Each MyObj In ActiveSheet.Shapes
If MyObj.Type = 8 Then MyObj.Delete
Next
Next
End Sub
Dim MyObj As Object
For i = 1 To Worksheets.Count
Sheets(i).Select
For Each MyObj In ActiveSheet.Shapes
If MyObj.Type = 8 Then MyObj.Delete
Next
Next
End Sub
コメント