No.1ベストアンサー
- 回答日時:
コレでよろしいかと思います。
wkCnt = ActiveSheet.Shapes.Count
For i = wkCnt To 1 Step -1
'線だったら
If ActiveSheet.Shapes(i).Type = 9 Then
ActiveSheet.Shapes(i).Delete
End If
Next
シェイプを最大から処理している理由は削除した際にシェイプの(i)がずれていく為、このようにしていきます。
No.3
- 回答日時:
No.2です。
スミマセン、
余計なもの↓つけました。
With ActiveSheet
End With
↓だけでいいです。
-----------------
Sub test()
Dim Sh As Shape
For Each Sh In ActiveSheet.Shapes
If Sh.Type = msoLine Then
Sh.Delete
End If
Next Sh
End Sub
-----------------
No.2
- 回答日時:
こんにちは。
↓でどうでしょうか?
-------------------------------------
Sub test()
Dim Sh As Shape
With ActiveSheet
For Each Sh In ActiveSheet.Shapes
If Sh.Type = msoLine Then
Sh.Delete
End If
Next Sh
End With
End Sub
--------------------------------------
お返事ありがとうございました
問題解決いたしました^^
またよろしくお願い致します
(サーバーに接続できません状態が続きお返事遅くなり申し訳ありません;;
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(IT・Webサービス) 早急です!!! iPhoneを機種変更して、新しい方のスマホに全部引き継ぎました。携帯自体は引き継ぎ 1 2023/01/06 19:12
- LINE こんにちは。 昨日、いとこの子供となかよくなって、LINE交換をしたのですが、いとこから学校で昨日と 1 2022/06/15 17:41
- 友達・仲間 スマホのバグでLINEが消えてしまい、アカウントを作り直すことになりました。 そしたらもちろん友達は 2 2023/04/03 01:35
- その他(恋愛相談) LINEや対面における距離感 大学3年生男です。同じサークルの女子が好きです。普段サークルで会ったら 7 2022/08/05 16:58
- 会社・職場 休日の業務連絡についてです。 職場(接客業のためシフト制)の業務連絡が全てグループLINEで行われま 3 2022/05/31 18:12
- Android(アンドロイド) AndroidスマホのLINEトーク履歴が消えました。 1 2022/07/25 02:04
- 友達・仲間 私はLINEを持っていて、楽しくともだちと会話することができていました。でも、最近友達とトラブルがあ 2 2022/07/11 14:31
- iPhone(アイフォーン) LINEの引き継ぎ、違う端末での電話番号変更 2 2023/01/21 19:21
- その他(恋愛相談) あまりLINEしない人 5 2023/01/09 11:10
- その他(恋愛相談) 異性にLINEのやりとりの内容を消してと言われました 今までに何回か言われたことがあります 私の対応 1 2023/06/21 23:47
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Excelの直線一括削除
Excel(エクセル)
-
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
-
4
VBAでユーザーフォームの表示を確認
Visual Basic(VBA)
-
5
VBAのコマンドボタンの文字列の改行方法は?
Visual Basic(VBA)
-
6
エクセルマクロで指定範囲内の図形を削除
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA シート全部のLine...
-
バケツツールが上手く使えません
-
c言語
-
word
-
『μg』の読み方と意味。
-
数式中の文字をCambria Math以...
-
PowerPoint SmartArtの箇条書...
-
バイナリファイルの編集
-
illustratorとExcelは連携出来...
-
PDF→CSVへ変換
-
Illustratorテキストエリアへ塗...
-
NumericUpDownの数値を選択済み...
-
VBA超初心者です。
-
VB.NETのテキストボック...
-
コンピュータ言語paythonのエデ...
-
イラレCS5からDXF DWGに書き出...
-
イラレでダブルクリックで文字...
-
VB.NET でのLaod/unLoad につ...
-
Publisherをエクセルファイルに
-
vba メモリーリーク
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
c言語
-
エクセルVBA シート全部のLine...
-
バケツツールが上手く使えません
-
FLASHで背景を黒にするにはどう...
-
1+1=?
-
Flash MX アニメーションgifで ...
-
word
-
名古屋の栄と錦は治安悪い?
-
数式中の文字をCambria Math以...
-
PDF→CSVへ変換
-
illustratorとExcelは連携出来...
-
『μg』の読み方と意味。
-
PowerPoint SmartArtの箇条書...
-
イラレでダブルクリックで文字...
-
Illustratorテキストエリアへ塗...
-
バイナリファイルの編集
-
googleサーチコンソールでの重...
-
Excel VBAで改行を含む文字列を...
-
Publisherをエクセルファイルに
-
サクラエディタで二つのテキス...
おすすめ情報