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
--------------------------------------
この回答へのお礼
お礼日時:2005/03/11 17:02
お返事ありがとうございました
問題解決いたしました^^
またよろしくお願い致します
(サーバーに接続できません状態が続きお返事遅くなり申し訳ありません;;
お探しの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も見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA シート全部のLine...
-
c言語
-
word
-
名古屋の栄と錦は治安悪い?
-
数式中の文字をCambria Math以...
-
『μg』の読み方と意味。
-
PowerPoint SmartArtの箇条書...
-
PDF→CSVへ変換
-
illustratorとExcelは連携出来...
-
バイナリファイルの編集
-
capcutってアプリで質問です。 ...
-
NumericUpDownの数値を選択済み...
-
ヒント表示について
-
イラレでダブルクリックで文字...
-
HPの投稿データをエクセルで一...
-
Videostudioテキストの横スクロ...
-
コンピュータ言語paythonのエデ...
-
Adobe Acrobatについて
-
サクラエディタで二つのテキス...
-
Excel VBAで改行を含む文字列を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
c言語
-
エクセルVBA シート全部のLine...
-
バケツツールが上手く使えません
-
FLASHで背景を黒にするにはどう...
-
Flash MX アニメーションgifで ...
-
1+1=?
-
word
-
名古屋の栄と錦は治安悪い?
-
数式中の文字をCambria Math以...
-
PDF→CSVへ変換
-
illustratorとExcelは連携出来...
-
『μg』の読み方と意味。
-
PowerPoint SmartArtの箇条書...
-
イラレでダブルクリックで文字...
-
Illustratorテキストエリアへ塗...
-
バイナリファイルの編集
-
googleサーチコンソールでの重...
-
Excel VBAで改行を含む文字列を...
-
Publisherをエクセルファイルに
-
サクラエディタで二つのテキス...
おすすめ情報