HTMLページから落としたエクセル表のオプションボタンを削除したい

質問

HTML形式の表をコピーしてエクセルに張った後、一緒についてきたオプションボタン（ラジオボタン）を一括で削除したいのですが、VBAでどういう記述をすればよいのでしょうか？
ちなみにオプションボタンの数は不特定多数、使用しているのはエクセル2003です。

回答No.3

masa_019 · ベストアンサー

貼り付いているオプションボタンの種類がわかりませんが、

フォームツールバーの方なら
Sub Macro1()
ActiveSheet.OptionButtons.Delete
End Sub

コントロールツールボックスの方なら
Sub Macro2()
　Dim obj
　For Each obj In ActiveSheet.OLEObjects
　　If obj.progID = "Forms.OptionButton.1" Then obj.Delete
　Next
End Sub

オプションボタンを含む、全ての描画オブジェクトを削除して構わないなら
Sub Macro3()
ActiveSheet.DrawingObjects.Delete
End Sub

いずれもオプションボタンが貼り付いたシートをアクティブにしてテストして下さい。

お礼

ありがとうございます。
早速試したところ、見事に成功しました。
本当に助かりました！

回答No.2

noname#187541

こんばんは。

貼り付けるときに「形式を選択して貼り付け」で「テキスト」を選んで貼り付けます。
Webからデータ(テキスト)を貼り付けるときはいつもこの方法を使っています。

サンプルがないので試してませんが、よけいなオプションボタンは貼り付かない思います。

1セルにデータが複数貼り付いた時は、2000だと「区切り位置」、2002以降は貼り付けオプションから「テキストウィザード」を使って空白でセルごとに分けます。

どうでしょうか。

お礼

回答ありがとうございます。
今回の場合、事情によりどうしてもHTMLでないと都合が悪かったもので、困っていました。
もし、いい方法があれば、又教えていただけると助かります。
ありがとうございました。

回答No.1

bin-chan

VBAを使わずとも、オブジェクトを一括で選択・削除する方法があります。

１）メニューの表示＞ツールバー＞図形描画で「図形描画」を表示させる。
２）「図形描画」の左の端から２番目あたりの白矢印(マウスポインタと同じ）をクリック。
３）対象オブジェクトをドラッグで範囲指定する。
４）ＤＥＬキーで削除。
５）２）のボタンをクリックして解除する。

ではどうでしょう？

お礼

回答ありがとうございます。
試したところ、問題なくできました。
ただ、私の質問の仕方も悪かったのですが、この操作、
(1)セル幅・高さを整え、
(2)塗りつぶしを変え、
(3)オプションボタンを消し、
(4)シート名を変更する、
という一連のVBA記述の中で処理したいのですが、
(3)だけがわからず困っていたんです。
自分でも色々調べてみます。
もし、いい方法があったらぜひ教えてください。
ありがとうございました。