見えないshapeがマクロ動作に影響し意図した動作を妨げる問題

Question

Sub test()
Debug.Print ActiveSheet.Shapes.Count
    For Each btn In ActiveSheet.Shapes
        'ActiveSheet.Shapes(13).Select
        Debug.Print btn.AlternativeText & " " & CStr(btn.TopLeftCell.Row)
    Next
End Sub

12個のshapes（テキストボックスx1、ボタンx8、図x3）があるシートで、▲釦を押下した際に正常に上に移動しないため、「Sub test()」にて確認したところ、shapeを13個認識している模様です。

**a)**シートの倍率を10%にしても、**b)**ctrl+endでも、最後の1個が選択できないため、削除できません。
「Sub test()」4行目に「ActiveSheet.Shapes(13).Select」としてみると、「実行時エラー　'-2147467259（80004005）'　'Select'メソッドは失敗しました:　'Shapeオブジェクト'」となります。

Sub sample()
Sheets("当該シート名").DrawingObjects.Delete
End Sub

で **c)**12個のshapes削除を試み、さらに念のため当該シートRow3のプルダウンリストも削除してみますと、12個のshapes削除は確認されますが、ActiveSheet.Shapes.Count → 1　が帰ってきます。

▲釦の動作については、昨日はこのようなことはなかったので、コードを修正加筆する間に余計なものが紛れ込んだのか、、、それも確認しています。

邪魔している最後の1個を排除し▲釦を意図通りに動作させたいです。

いつもお世話になって入ります。コメントいただいた方々には感謝いたしております。ご教授いただけますと幸いです。

Answer 1

VBAマクロを実装中に同じ事象で辿り着きました。
本件は「解決済」となっていましたが、参考になればとコメントしました。

Excelの入力規則で「リスト」としたセルがアクティブになるとドロップダウンが表示されますが、この際Excelが「Drop Down XXX」というオブジェクトを生成するようです（図１）。

セルが非アクティブになると、オブジェクトは非表示になります（図２）。

このオブジェクトはブックを開いた直後は存在せず、該当のセルがアクティブになった場合に初めて生成され、以降は違うセルの入力規則（リスト）でも同じオブジェクトを使いまわしているようです。

「Ctrl + S」でブックを保存すると、勝手に消えました（図３）。

BeforeSaveなどのイベントでShapes.Countとすると、オブジェクト数が「1」で取得されるため、想定したオブジェクト数と異なる判定を招くことがあると思います。

※この入力規則（リスト）で生成されたオブジェクトは扱いが特殊なのか、UI経由で選択できないほか、マクロから削除しようとすると「メモリが不足しています」というエラーが発生しました。エラーの内容と理由ははっきりわかりませんが、このオブジェクトが起因しているようでした。

図１

図２

図３

Answer 2

現象が発生するExcelを持っていないので確かなことが言えませんが、VBA Editorのウォッチ式をつかうと直接Shapesの内容を確認することができ、原因が分かる可能性があります。

使い方は、以下のようにデバッグメニューの中ののウォッチ式の追加を選び

ActiveSheet.Shapesを指定します。すると、次のような画面に代わります。

ウォッチ式のツリーに存在する

をダブルクリックすると、その内容が以下のように細かく確認することができます。細かくShapeの情報を調べると原因がわかるかもしれません。

Comments

[vitabrevisarsl1]

・ご教授ありがとうございます。
　事後報告致します。

　ウオッチ式で余分なshapeを観たところ、参加▲ボタンが２つ重なっていることが判明（▼ボタンは重なり無し）。
　↓
　余分のボタンを削除し、▲ボタンが重なっていないことを確認するも数が合わない。
　↓
　ウオッチ式で再確認すると今度は▼ボタンが重なっていました。
　さらに Name"Drop Down 211" - AlternativeText "" というshapeが最後に存在しておりました。
　↓
　▼ボタン手動削除。
　↓
Select Case (ss(ix).AlternativeText)
Case "▲"～
Case "▼"～
Case ""
　　　ss(ix).Delete
End Select
としました。

　ボタンの重なりは手動で為したことではないため、Drop Down 211なる何者なのか判然としないものの悪影響と考えます。様子見いたします。

[ExcelVBAer]

シート上に、入力規則のブルダウンはありませんか？
プルダウンを設定しているセルを選択すると、右側に▼が見えますよね？
あれ、シェイプとして認識されてたと思います。
(何も操作はできなかったはずです。。。)

なので、意図したシェイプに処理をしたい場合、
Typeで判定したりします。
更に厳密に処理したければ、
シェイプ自体に名前を付けて、名前で判定する方法もあります。
※シェイプ選択状態で、左上に表示された名前欄に、任意の名前をセットします)