オブジェクトの削除
Excelでどうしてもプルダウンが削除できない。
どうして削除できないのかは謎。
下記の方法はやってみた。
- オブジェクトを選択して【Deleteキー】。
- データの入力規則の設定を削除。(リスト設定で値がエラー値だった)
- オブジェクトの非表示にはできた
非表示だとまた表示される可能性があるから
オブジェクトを削除するマクロを作った。
↓点線内をコピペ
---------------------------------------------------------------------------------------
Option Explicit
Sub form_del()
Dim objName As Variant
Dim obj As Object
objName = InputBox("【タブ:ページレイアウト】オブジェクトの選択と表示", "削除するオブジェクト名を入力", "")
'選択しているシート
With ActiveSheet
'オブジェクトのサーチ
For Each obj In .Shapes
'コントロールフォームの削除
If obj.Name = objName Then
obj.Delete
End If
Next
End With
Set objName = Nothing
Set obj = Nothing
End Sub
---------------------------------------------------------------------------------------
オブジェクト名は手入力しない方がいいけど、
使う機会は少ないと思うのでこんなもんでOK。
