VBATips

シート上のドロップダウンリストだけ消す【ExcelVBA】

シート上のドロップダウンリストだけを消したい

シート上に存在するドロップダウンリストだけ消したい場合があります。
その場合、オートシェイプの名称が「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

注意点

  • 特にありません。

関連記事

コメント

タイトルとURLをコピーしました