2016年4月5日火曜日

Excel の Drop Down を削除

'ドロップダウンの削除。
Sub IMAGE_DELETE_DropDown()

Dim MyOb As Object
With ActiveSheet
'とりあえず図形はすべて対象にしておいて…。
For Each MyOb In .Shapes
'Drop Down のみを処理対象とする。
'(この if がないと、全 Shape が対象。)
If MyOb.Type = 8 Then
'図形を削除する。
MyOb.Delete
End If
Next
End With
Set MyR = Nothing
End Sub

http://hinden.at.webry.info/201105/article_25.html