No.6
- 回答日時:
>直線・四角形だけ
矢印付きも含めて消す。円も消す。円を含めないときは円の関連の
If Left(myshp.Name, Len("Oval")) = "Oval" Then
MsgBox "円"
del = 1
End If
を削除。
標準モジュールに、下記貼り付け。F5キーを押すと実行されます。
結構難しい。コメントあり、は下記で大丈夫のよう。
Sub test02()
Dim myshp As Shape
For Each myshp In ActiveSheet.Shapes
del = 0
If Left(myshp.Name, Len("Line")) = "Line" Then
MsgBox "線"
del = 1
End If
If Left(myshp.Name, Len("Oval")) = "Oval" Then
MsgBox "円"
del = 1
End If
If Left(myshp.Name, Len("Rectangle")) = "Rectangle" Then
MsgBox "四角"
del = 1
End If
If del = 1 Then
myshp.Delete
End If
Next myshp
End Sub
No.5
- 回答日時:
>No.2さんの回答で解決できたのですが、これはマクロ?か何かでしょうか?よくわからないのですが
M-SOFTさんが提示されたのはマクロです。
シェイプの種類を指定しての削除も可能です。
参考HPです。
http://www.asahi-net.or.jp/~zn3y-ngi/YNxv212.html
No.4
- 回答日時:
横槍レスすみません。
M-SOFTさんのコードについてです。
myshap.Delete
↓
myshp.Delete
ですね。
あと、コメントがあるとエラーになります。
マクロ実行時はエラーになりませんが、コメント
のあるセルを選択すると強制終了になると思いま
す。
シートにコメントがない場合は問題ありません。
失礼しました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 画像編集・動画編集・音楽編集 medibang での文字の整列の仕方 1 2023/06/02 06:38
- 高校 数学Aの問題で、円に内接するN角形(N>4)の対角線の総数は ア 本である。また、Fの頂点三つからで 1 2023/04/13 17:47
- 数学 数学 AP=CQを証明するために 2つの三角形の合同を示していますが 平行四辺形の向かい合う角は等し 1 2023/02/03 10:15
- 数学 四角形の角度のことで聞きたいです。 円に内接する四角形は外角と対角が等しいと学んだ気がするんですが、 5 2022/07/27 05:52
- Excel(エクセル) excelのオートシェイプを使って 1 2023/01/03 16:54
- ノートパソコン Open Office.orgのDrawで描いた図形の塗りつぶしをしたい 1 2022/03/22 19:24
- Excel(エクセル) エクセルの値を元に図形の色を変えたい 2 2022/05/11 01:37
- 掃除・片付け リビングの天井にある蛍光灯を使った四角い枠の電気から、丸形のLEDの電気に変えました。 それまで四角 3 2022/12/26 13:44
- その他(Microsoft Office) A1:A4,C1:c4の四角形をコピーして、 別のページにまとめて貼り付ける方法はありますか? 1 2023/03/16 10:34
- 数学 数学(直角三角形の証明) BE=CDは使ってもいいですよね? それぞれ底角から等辺へ垂線として出てい 2 2023/02/03 10:08
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
1回のみ折り曲げる矢印を作りたい
-
L字の線を描きたい
-
エクセルで中心線を表示させる...
-
Openoffice writer の罫線の引き方
-
AR CADの使い方
-
Wordで文字の上の楕円の消し方
-
エクセルに地図に線を引く
-
オープンオフイスでCDジャケッ...
-
ワードで数直線の作り方を教え...
-
エクセルで簡単な図面を引くには?
-
図形サイズの指定ができるペイ...
-
エクセルの線(飛び越え線)の...
-
Excel 選択も削除も出来ない画像
-
ワードでの矢印で線を引く
-
エクセルでこんな事出来ますか?
-
カレンダーを作成し、特定の日...
-
正八角形を書きたい
-
教えて下さい!
-
エクセル文字等を囲む方法
-
エクセルでの文字を丸印で囲み...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで中心線を表示させる...
-
1回のみ折り曲げる矢印を作りたい
-
L字の線を描きたい
-
word、Excelで雲マークを使...
-
表の角を丸くするには
-
Openoffice writer の罫線の引き方
-
エクセルの線(飛び越え線)の...
-
エクセルで1本の直線を引いたら...
-
Excel 選択も削除も出来ない画像
-
AR CADの使い方
-
エクセル>テキストボックスの高...
-
Wordで文字の上の楕円の消し方
-
カレンダーを作成し、特定の日...
-
エクセルに地図に線を引く
-
ワードで「雲」の絵を書きたい
-
エクセル文字等を囲む方法
-
正八角形を書きたい
-
エクセル 表示が薄いのは?
-
ダーツの的みたいな掃除当番表...
-
エクセル画面に現れる変な物 こ...
おすすめ情報