□ 戻る □一般操作のサロン □ 使用方法 □ 新着記事 □ 新規に質問する！ □ トピック一覧 □ 検索 □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
| 記号の〇を一括消去 | |
|---|---|
[194961] 記号の〇を一括消去- ■親トピック/記事引用/メール受信=OFF■ □投稿者/ まー -(2022/06/02(19:51)) □U R L/ 何度もすみませんが、 色々なセルに〇を付けたものの、一つ一つ消すのは面倒ですよね。 それで一括消去できますか？ Sub CommandButton1_Click() Dim i As Shape For Each i In ActiveSheet.Shapes i.Line.Visible = msoFalse Next i End Sub という公式でやってみたのですが、消去はできたのですが、透明の文字が残ってしまって。 何か良い方法ありますか？ この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |
[194962] Re[1]: 記号の〇を一括消去- ■記事引用/メール受信=OFF■ □投稿者/ OK -(2022/06/02(20:04)) □U R L/ >i.Line.Visible = msoFalse 非表示になってるだけで消去はされてませんよ 参考です。シェイプの削除までは行ってません。 Sub test4() Dim sp As Shape For Each sp In ActiveSheet.Shapes If ActiveSheet.Shapes(sp.Name).AutoShapeType = 9 Then MsgBox sp.Name Next sp End Sub この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[194963] Re[2]: 記号の〇を一括消去- ■記事引用/メール受信=OFF■ □投稿者/ OK -(2022/06/02(20:09)) □U R L/ 参考HPです。 ht tps://www.relief.jp/Excel-VBA/Shape/ ht tps://www.relief.jp/docs/018476.html | |
[194964] Re[3]: 記号の〇を一括消去- ■記事引用/メール受信=OFF■ □投稿者/ OK -(2022/06/02(20:17)) □U R L/ サービスの参考HPです。 ht tps://daitaideit.com/vba-shapes-delete/ | |
[194965] Re[4]: 記号の〇を一括消去- ■記事引用/メール受信=OFF■ □投稿者/ OK -(2022/06/02(20:22)) □U R L/ Ovalを一括で削除するサンプルコードです。 ActiveSheet.Shapes(Ovals).Delete | |
[194968] Re[5]: 記号の〇を一括消去- ■記事引用/メール受信=OFF■ □投稿者/ まー -(2022/06/03(10:41)) □U R L/ お返事ありがとうございます。
Sub TEST6()
'シート内の図形をループ
For Each a In ActiveSheet.Shapes
a.Delete '図形を削除
Next
End Sub
資料を参考にしたんですけど、これではコマンドボタンや他の図形まで消えてしまいます。
〇（楕円）のみを消すことができますか？
ちなみに楕円はOvalなので
Sub TEST6()
'シート内の図形をループ
For Each a In ActiveSheet.Shapes(Ovals)
a.Delete '図形を削除
Next
にするとエラーになります。
ＶＢＡが素人なのですみません。この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[194969] Re[6]: 記号の〇を一括消去- ■記事引用/メール受信=OFF■ □投稿者/ OK -(2022/06/03(11:30)) □U R L/ 参考HPはご覧になりましたか？ | |
[194970] Re[7]: 記号の〇を一括消去- ■記事引用/メール受信=OFF■ □投稿者/ OK -(2022/06/03(11:58)) □U R L/ 変数aの変数の型をObject型で宣言したらいけるようです。
あと、
>ActiveSheet.Shapes(Ovals)
を
ActiveSheet.Ovals
に変えてください。
Sub TEST7()
Dim a As Object
'シート内の図形をループ
For Each a In ActiveSheet.Ovals
a.Delete '図形を削除
Next
End Sub
一行で記述するときも
>ActiveSheet.Shapes(Ovals).Delete
は
ActiveSheet.Ovals.Delete
でもいけました。この記事にはVBAのコードが含まれています。 緑の太文字→注釈 茶色の太文字→条件分岐 赤の太文字→ループ 青の太文字→その他 | |
[194971] Re[8]: 記号の〇を一括消去- ■  / 記事引用/メール受信=OFF■
□投稿者/ まー -(2022/06/03(13:04)) □U R L/ できました。 ++++++++++++++++++++ OS ⇒OTHER Version⇒OTHER ++++++++++++++++++++ | |