シート上のドロップダウンリストだけを消したい
シート上に存在するドロップダウンリストだけ消したい場合があります。
その場合、オートシェイプの名称が「Drop Down」が含まれるかどうかで判断可能です。
シート上のドロップダウンリストだけを消すサンプルコード
ドロップダウンの名前は「Drop Down 1」、「Drop Down 2」と表記されるため、Drop Downの名前が含まれるかどうかで判断をします。
'■特定シートのドロップダウンリストをすべて削除 Dim Pic As Shape For Each Pic In ActiveSheet.Shapes If Left(Pic.Name, 9) = "Drop Down" Then Pic.Delete End If Next
注意点
- 特にありません。
コメント