VBATips

入力規則のドロップダウンが消えてしまった場合の対処方法【ExcelVBA】

入力規則のドロップダウンが消えてしまった

あるマクロを実行すると、入力規則のドロップダウンが消えてしまう場合があります。
具体的には

  • 入力規則のリスト自体は残っている
  • ドロップダウンが表示されない（リストとして選択ができない）
  • 発生したらシートを移動させる、入力規則の再設定が必要。

入力規則のドロップダウンが消えてしまう処理

ドロップダウン自体もオートシェイプ扱いのため、オートシェイプを全て削除してしまうと、
ドロップダウンまで消えてしまいます。

        Dim Pic As Shape
        '■全てのオートシェイプ・画像が対象
        For Each Pic In ws.Shapes
            Pic.Delete
        Next

入力規則のドロップダウンが消えてしまった場合の対処方法

ドロップダウンの名前は「Drop Down 1」、「Drop Down 2」と表記されるため、Drop Downの名前が含まれるかどうかで判断をします。

'■特定シートのオートシェイプ・画像をすべて削除
    Dim Pic As Shape
    For Each Pic In ws.Shapes
        If Left(Pic.Name, 9) <> "Drop Down" Then
            Pic.Delete
        End If
    Next

注意点

  • 特にありません。

関連記事

コメント

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