|
こんにちは。かみちゃん です。
ちょっと今時間がないので、簡単に。
>あと、Shapesコレクションにはオートシェイプ以外にも、
>グラフはもちろん、コメントや入力規則のドロップダウン▼や
>オートフィルタをかけていれば、そのドロップダウン▼も含まれます。
これ、失念してました。
数時間前に別の掲示板で、よく似た質問に対して、コメントしたところです。
こちらもフォローするのを忘れていました。
kanabunさんからの別案のアドバイスもあるので、そちらで検討していただいても
いいのですが、
一応、私が提示したコードの修正案を出しておきます。
Sub Sample1()
Dim i As Integer
For i = ActiveSheet.DrawingObjects.Count - 1 To 1 Step -1
ActiveSheet.DrawingObjects(i).Delete
Next
MsgBox "最新のオブシェクト以外を削除しました" & vbCrLf & _
"最新のオブジェクトは、" & ActiveSheet.DrawingObjects(1).Name
End Sub
ただし、このようにすると、フォームで配置したオブジェクトだけではなく、
コントロールツールバーで配置したオブジェクトも含まれるので、注意してください。
2回目の質問については、ちょっと、今、考えている余裕がありませんので、
時間ができ、コメントがついていなければ、検討します。
申し訳ありません。
|
|