- ベストアンサー
エクセルで表中の複数のオートシェイプで作成した線（斜線）を一度に消すには？
imogasiの回答
- imogasi
- ベストアンサー率27% (4737/17068)
円や四角（もあればそれらは）を残して、直線だけ消します。 なけば操作だけで消せますので、下記の出番ではありませんが。 （１）表ーー＞シートの一部の表（例A1:G10）指定、ならダメ （２）斜線ーー＞斜め線だけ指定、ならだめ 意識して区別して、表現してください。 上記の意味ならできないか複雑化します。 Sub test01() Dim ob As Object For Each ob In Worksheets("sheet2").Shapes 'DrawingObjects 'msgBox ob.Name If ob.Type = msoLine Then 'MsgBox ob.Name ob.Delete End If Next End Sub やり方は ツールーマクローVBE－（VBE画面のメニューの）挿入ー標準モジュール で出てくる画面に貼り付けて、実行する（F５キーを押すなど）
関連するQ&A
- EXCEL オートシェイプの線を消す方法
よろしくお願いします。 ＥＸＣＥＬで オートシェイプで線を引きました。 ところがマクロで表の複写を組んでしまったために 複写と複写が重なり オートシェイプの罫線が同じ場所に1000ぐらい？に重なってしまいました。(もっと多いかもしれません。） しかしどうしてもそのシートを削除するわけにはいきません。 出来るだけ簡単に 1000回？重なっているだろうオートシェイプの罫線を 消す方法はありますか。 よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
- オートシェイプで作成した線が選択できない（Excel2003）
こんにちは。 第三者が作成したエクセルの表に、オートシェイプで作成した線があり、 線が長過ぎるので編集したいのですが、 オートシェイプ自体の選択が出来ません。 どうしたらよいでしょうか？
- ベストアンサー
- オフィス系ソフト
- 複数セルに一本の斜線を引く
こんにちは。エクセル２０００を使用しています。 斜線を引くにはセルの書式で設定するか、オートシェイプを使えばできますが、複数のセル（例A1：C2）に一本の斜線をひく場合オートシェイプを使わずにひく方法はないでしょうか？オートシェイプだとセルの幅や高さを変更するとズレてしまいます。なにかよい方法はありませんか。よろしくお願いします。
- 締切済み
- オフィス系ソフト
- エクセル2002マクロ オートシェイプの消去方法を教えて下さい
エクセルでB5～F18に掛けて表があります。 この表は毎日１表ずつ分あり、使わない日は右上から左下に向かって斜線を引きます。 オートシェイプで引いた線をマクロで記録して引いているのですが、誤って引いてしまった時の消去マクロが作れないかな、と考えているのですが、可能でしょうか？ マクロの記録で、オートシェイプをクリックしてDeleteとやってみたのですが、うまくいきません。 どうやら線を引くたびに番号がつくらしく、その番号の線を消す、という風に記録してしまう為、エラーになってしまうようです。 表に斜線が引ければ良い訳で、他に方法があるのならそれで構いませんし、表は印刷してペーパーで保管しています。 何か良い方法がありましたら、宜しくお願い致します。 ちなみに今、描写の為に使っているマクロは下記の通りです。 Sub Macro2() ActiveSheet.Shapes.AddLine(15.75, 59.25, 323.25, 475.5).Select Selection.ShapeRange.Flip msoFlipHorizontal End Sub
- ベストアンサー
- オフィス系ソフト
- エクセルで複数のセルに一本の斜線を引く場合
普通はオートシェイプを使えばできますよね。 しかし，伝票のような表があるとします。 表の上の行から順にデータが入力されていきますが， 表によっては，下の何行かはデータが入ってないようなこともあります。 このデータの入っていない行を抹消する意味で斜線を引くとすると， 何か特別なマクロで可能でしょうか？ （つまり，ページによっては20行の表のうち，10行までデータが入っているのでA11～E20のセルに一本の斜線を引いたり，あるページはデータが19行まで入っているのでA20～E20のセルに一本の斜線を引いたりします） ちなみに，この場合，データが入っていないと言いましたが， vlookup関数などでデータを持ってきているのでエラー表示の部分は 色を変えたりして表示していないようにしているだけです。
- ベストアンサー
- オフィス系ソフト
- オートシェープの矢印の線を表の中に引きたい
Word 2003 地図を作成するため、表の中にオートシェープの矢印の線を複数引きたいのです。 なぜか？ オートシェープの矢印の線がおさまらない。 微調整もできません。（Ctrlキー ＋矢印キー）を使っても、矢印の線が飛んでしまいます。 複数の矢印の線を入れると、表がばらばらになったり、矢印線がばらばらになったり、 収まらないのです、どこで調整すればいいのでしょうか？ Word 2000・2002では問題なくできるのです。 よろしくお願いいたします。
- 締切済み
- Windows XP
- エクセルで、オートシェイプの１０本の線を全て消すには？
セルの羅線の１０本は なし を選べば１回で消えますが、 オートシェイプから作った１０本の線は １回の操作で消えないので、 線を１本１本選んで消してます。 オートシェイプの１０本の線を １回の操作で、全て消すことはできますか？
- ベストアンサー
- オフィス系ソフト
- ExcelVBA オートシェイプについて
セルの選択した場所のとなりにオートシェイプを移動させるマクロを組みたいと思っています 見かけがまったく同じシートが４枚あり、そのシート全てに同じマクロを指定したいのですが、オートシェイプの名前の指定の仕方が分からなく困っています SelectionChangeイベントでオートシェイプ移動のマクロを動かしているので、同じ名前のボタンならよいのですが・・・ なにかよい方法はないでしょうか？
- ベストアンサー
- オフィス系ソフト
- エクセル オートシェイプ
こんばんは！ エクセルのオートシェイプについての質問です。 会社の稟議書を作成していて、上のほうに、オートシェイプで部長や課長のハンコを押す欄を作ろうと思ったのですが、うまくいきません・・・ エクセルで罫線を引いて、セル内に文字を入れるのは簡単なのですが、オートシェイプで作成する場合は、どのようにしたらよいでしょうか・・・ 四角形を挿入して、縦に二本オートシェイプで直線を引いて、横にも一本オートシェイプで直線を引いて、それをグループ化したまではよかったのですが、テキストをどのように入れたらよいのか分かりません・・・ 右クリックしても、テキスト追加できず、悩んでいます・・・ どなたかお分かりでしたら、お願いいたします。
- 締切済み
- オフィス系ソフト
- エクセルでオートシェイプに表を貼り付けると途切れる
エクセルでオートシェイプに表を貼り付けると途切れてしまいます。 エクセルのシートに絵のように貼り付けて位置を調整したいので エクセルにそのまま打ち込むと都合が悪いのです。 表に打ち込んだ文字が、途中で途切れてしまうのです。 どうして表示されないのでしょう？
- ベストアンサー
- Windows XP
お礼
マクロの内容まで記載していただき誠に有難うございます。今回はシート中の表の、とある範囲でありますので、できないか複雑化するということですね。（選択範囲にあるオートシェイプはその斜線のみなんですが）