VBAでクリアボタンのみ残してシートをクリアしたい

VBAでActiveXで作成したクリアボタンをクリックするとシートをクリアするVBAを組みたいです。

シートの中身はWEBページをコピー＆ペーストで張り付けたもので、セルに入力された文字や画像、オプションボタン、など様々なものがあります。

ActiveSheet.DrawingObjects.Delete
Worksheets("Sheet1").Cells.Clear

でやると全て消えてしまうので、特定のボタンを残す方法を教えて下さい。

No.1 ベストアンサー 回答者： WindFaller 回答日時： 2018/11/08 21:40

こんばんは。

ご質問の意味が、実行されるボタンまでもが、削除されてしまうという意味なら、以下のようなスタイルにすればよいです。


Private Sub CommandButton1_Click()
Dim obj
Worksheets("Sheet1").Cells.Clear
For Each obj In ActiveSheet.DrawingObjects
　 If obj.Name <> "CommandButton1" Then
　 obj.Delete
　 End If
Next
End Sub

この回答へのお礼

お礼が遅くなり申し訳ありません。
無事できました。
ありがとうございました。

お礼日時：2018/11/10 17:34