![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
A 回答 (4件)
- 最新から表示
- 回答順に表示
No.4
- 回答日時:
> ワードアートだけでなく、セルに文字や、写真(JPEGが多い)も
> 入れることがありまして、そういった場合Objectになるのですかね?
> セルに入った文字がひっかかってしまって・・・
それなら、こんな感じです。
セル A2:B6 の内容と、その範囲内に左上点がある Shapes、Picture等のDrawingObjects を
全て削除します。(セル内容は消去)
Sub test()
Dim Obj As Object
Range("A2:B6").Clear
For Each Obj In ActiveSheet.DrawingObjects
If Not Intersect(Range("A2:B6"), Obj.TopLeftCell) Is Nothing Then Obj.Delete
Next
End Sub
No.3
- 回答日時:
おっと!! 質問内容を忠実に解釈するとこんな感じです。
WordArtの左上角が「セルA2:B6に入っているものだけを削除」するのであれば、こんな感じです。
Sub test()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
If InStr(Shp.Name, "WordArt") = 1 Then
If Not Intersect(Range("A2:B6"), Shp.TopLeftCell) Is Nothing Then Shp.Delete
End If
Next
End Sub
この回答への補足
しまった、言い忘れてました・・・
ワードアートだけでなく、セルに文字や、写真(JPEGが多い)も
入れることがありまして、そういった場合Objectになるのですかね?
セルに入った文字がひっかかってしまって・・・
初心者で申し訳ないです。( ̄~ ̄)ンー
No.2
- 回答日時:
こんな感じで如何でしょうか?
WordArtの左上角がセルA1に入っているものを残し、削除します。
Sub test()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
If InStr(Shp.Name, "WordArt") = 1 Then
If Shp.TopLeftCell.Address <> "$A$1" Then Shp.Delete
End If
Next
End Sub
なるほど、うまくいきました^^
A1以外ってのが頭に浮かびませんでした^^;
なんと言ってお礼をいいやら、誠にありがとうございました。
ご恩は一生忘れません。
No.1
- 回答日時:
あくまで
・A1が一番最初に作成された
・ワードアート以外のShapeオブジェクト(図形など)がない
場合限定ですが、以下のマクロでできませでしょうか。
(実行するときに念のためシートのバックアップ(コピー)をとっておいた方がよいかと思います)
Sub ワードアートを削除()
Do While Shapes.Count > 1
Shapes(2).Delete
Loop
End Sub
Do While Shapes.Count > 1 ←ここでひっかりました^^;
ありがたい回答で感謝であります。
先に回答された方のを採用させてもらいました。
お手数おかけしました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 1 2023/02/27 22:21
- Excel(エクセル) エクセルで作った文章を図で貼り付けたが元のエクセルが削除したので図からエクセルに戻したい 4 2022/07/05 08:11
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Windows 10 フォルダをパソコンから削除してもまた現れます。 5 2023/04/15 11:45
- Visual Basic(VBA) エクセルのマクロについて教えてください マクロを実行して 作業フォルダの中にある PDFファイル名を 3 2023/07/01 15:16
- Excel(エクセル) VBA 指定した列にある日時データから時間を削除する方法について 4 2022/04/14 11:17
- Visual Basic(VBA) 【VBA】Excelの特定範囲のセルを画像で保存したい 2 2023/01/25 13:06
- その他(Microsoft Office) エクセルのマクロについて教えてください。 5 2023/01/21 09:39
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/08/10 14:24
- Excel(エクセル) VBA 文字列変換と指定した列にある日時データから時間を削除する方法について 2 2022/04/14 15:23
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セル入力文字が、「右のセルに...
-
エクセルでセルの中の文字が削...
-
あるセルに色を付けた時、別の...
-
ワードで表を作ってセル内で改...
-
エクセルで知らない間に行がず...
-
エクセル 結合したセルの間にセ...
-
用紙を均等に分割して文書は作...
-
Excelのセル内の文字の頭に半角...
-
エクセルで捺印をもらう欄を別...
-
Wordで、表のセルが変なところ...
-
ワードで表の中の文字がセンタ...
-
Wordでセルに文字を入力すると...
-
ピボットで作成した表は、セル...
-
エクセルVBA 文字を入力したら...
-
エクセルの行を巾を変えずに増...
-
エクセルの一つのセル内に2つの...
-
Wordの表で逆L字型のセルを作成...
-
Word 表のセル塗りつぶし
-
ワードの表で中央揃えが出来ない
-
エクセル2010で、結合したセル...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セル入力文字が、「右のセルに...
-
Wordで、表のセルが変なところ...
-
あるセルに色を付けた時、別の...
-
エクセルで知らない間に行がず...
-
エクセルでセルの中の文字が削...
-
エクセル2010で、結合したセル...
-
ワードで表を作ってセル内で改...
-
Excelのセル内の文字の頭に半角...
-
ワードの表で中央揃えが出来ない
-
エクセル 結合したセルの間にセ...
-
Wordでセルに文字を入力すると...
-
エクセルで1列おきのデータのみ...
-
WORDで表の行を2行に分けたい
-
エクセルで捺印をもらう欄を別...
-
Word 表のセル塗りつぶし
-
エクセルの一つのセル内に2つの...
-
Wordの表で逆L字型のセルを作成...
-
Wordの表をExcelの表に貼り付ける
-
エクセルで複数行を括弧でくく...
-
ワードで表の中の文字がセンタ...
おすすめ情報