図形のクリアで入力規則の▼が消える

質問

図形のクリアでG1の入力規則の▼まで一時的に消えてしまいます。コード文でShapesを
用いているのではないかと思いますが、▼で消去を回避する方法が ありましたらお教え願え
ますでしょうか？

Windows7・SP1 Office2010

Sub 図形のクリア()

Dim myRng As Range
Dim sp As Variant
Set myRng = Range("I10:CW60")
For Each sp In ActiveSheet.Shapes
If Not Intersect(Range(sp.TopLeftCell, sp.BottomRightCell), myRng) Is Nothing Then
On Error Resume Next
sp.Delete
End If
Next
Set myRng = Nothing

End Sub

回答No.2

mitarashi · ベストアンサー

もし、入力規則のドロップダウンだけ消したくないなら、
if sp.Type<>.msoFormControl then sp.Deleteとか

または、AutoShapeだけ消したいなら、
if sp.Type = msoAutoShape then sp.Delete　とか。

以上、ご参考まで。

お礼

御丁寧な解答有難うございます。ここまでわかれば後は自分で何とかします。

回答No.1

mitarashi

シートに入力規則のリストから選択を、一個だけを設定して、
ご提示のコードに下記を加えて、削除部分をコメントアウトして実行します。
Debug.Print TypeName(sp), sp.Name, sp.ID, sp.Type, sp.AutoShapeType
イミディエイトウィンドウに表示された結果は下記の通り。
Shape Drop Down 1 1025 8 -2

名前のDrop Down 1 とか、
TypeのmsoFormControl=8とかが識別に使えそうですね。
これらで識別して削除しないように条件分岐すればよいでしょう。

AutoShapeTypeの-2はVBEのオブジェクトブラウザで調べたところ下記でしたので、いまいちでした。
Const msoShapeMixed = -2 (&HFFFFFFFE)

以上、ご参考まで。

参考URL：

http://www.asahi-net.or.jp/~zn3y-ngi/YNxv212_ShapesType_tbl.html

補足

おしゃられることは理解できますが、勉強不足でコード文をどうしたらいいのかわかりかねますので具体的にお願いできますでしょうか？

　考え方が煮詰まっていて思いつきませんので。