• ベストアンサー

Excel2003で指定範囲内にある線の消去をVBAで

VBA初心者で、マクロ記録をし、チョイスしながらプログラムを組み立てているのですが、どうしても範囲指定をした線を消去するというものがうまくいきません。 その線とは、別のページからコピーするもので、毎回同じ線ではありません。 良いプログラムはありませんでしょうか。 また、シートの中の線を全て消去する方法もあればおしえていただけますでしょうか。

質問者が選んだベストアンサー

  • ベストアンサー
  • Ce_faci
  • ベストアンサー率36% (46/127)
回答No.1

こんばんわ、 ご質問内容は、たぶんできません。 図形には名前が付きますよね、"Line 5" とか。 この番号も描く度に違ってくると思いますので、特定も出来ないでしょう。 ならば、コピーではなく、ご自分で描いてみては如何でしょう。 数値を元に線をひくのですか？（逆質問ですいません） 全部消したいときは Worksheets(1).Lines.Cut または Worksheets(1).Shapes.SelectAll Selection.Cut をお使いください。

mogurakantoku
質問者

お礼

ご返答ありがとうございます。 数値を元に線を引くのではなく、別のシートのセルを範囲指定してコピーしたものを他のシートにペーストしてたのです。 後者のプログラムを参考にさせていただきました。

  1. カテゴリ
  2. パソコン・スマートフォン
  3. Windows
  4. その他(Windows)

関連するQ&A

  • VBAでのセル範囲指定について

    お世話になります。 私が分からないのは、ＶＢＡでのセル範囲指定なのですが、 例えば、シートにデータが有、そのデータの１行目は見出しなので ２行目からデータが入っているセルまでの範囲を指定、コピーして 隣のシートに貼付したいのですが、そのデータの入力される範囲が 毎回違います。「CurrentRegion.Select」としてしまうと、１行目 の見出しまでも範囲指定されてしますので、どうやったら良いのか どなたかお教え頂きたく宜しくお願い申し上げます。

  • Excel　VBAで移動するセルを範囲指定したい

    VBA初心者です。よろしくお願いします。 外部データの取入れで取得したデータを必要なだけコピーして使いたいのですが、毎回データの量が増えてきます。増えても増えた分だけ増やしていける方法はありませんか？ データの最後から100個分だけ範囲指定してコピーしたいのです。 それと外部データを取り込んだときにマクロを実行したいのですがよろしくお願いします。

  • エクセルVBAのコード

    教えてください。 エクセルでマクロを記録しVBEで編集したりしています。 その画像全てを１度に消去するにはどうしたら良いのでしょうか？ やりたい動作は下記です。 　　シート１に文章と、たくさんの画像が貼ってあります。 　　画像の全てと、文章の一部を毎月入れ替えます。 　　シート内に画像がたくさんあり、ひとつひとつ切り取るのは大変です。 　　そこでシート内の画像全てを一度に切り取るマクロを作りたいのです。 例えば範囲指定してコピーをすると、文章も画像も罫線もコピーされてました。 でも範囲指定して削除をすると画像だけ削除されずに残ってしまいます。 画像だけを切り取りした動作を、マクロで記録して見てみたら、 ActiveSheet.Shapes.Range(Array("Picture 39", "Picture 47","Picture48"))._ Select Selection.Cut となっていました。 Pictre39などと、画像の番号を入れれば切り取りできるのは分かるのですが、 毎月シート内の画像は入れ替えるので、画像番号も変わってしまうと思うのです。 だから、シート内全ての画像を指定して消したいです。 画像の種類はネットでもらったイラストやクリップアートなどです。 購入したVBAの本でも分からないし、ネット検索でも良く分からず・・・ 宜しくお願いします。

  • vbaで範囲名の消去

    VBAで頭にrのついた範囲名をすべて消去するにはどのように記述したらいいのでしょうか。教えてください。

  • VBAで印刷範囲指定を複数

    お世話になります。 Execelのシート上でVBAを使って印刷範囲を複数飛び飛びに添付のような 感じで指定する方法をご教示いただきますか？ どうも、改ページプレビューが残ったりしてうまくいきません。 一塊の一範囲に1ページとしたいです。 多量に指定するので文字列の制限とかもあるのですか？ よろしくお願いします。

  • VBA 範囲指定について

    VBAでシートAの範囲A1：B200までをコピーして シートBの範囲A1：B200にコピペしたいのですが、 範囲のB200のみ変動する可能性があるので、その変動に対応出来るようにしたいです。 例） Worksheets("A").Activate PD = Worksheets("入院費用一覧").Range("A1:B〇〇〇").Value Windows("B").Activate Worksheets("B").Range("A1:B〇〇〇").Value = PD B〇〇〇の所に変動できる数値を関数でC1に行数指定して対応できないかと考えていますが、何かいい方法有りますでしょうか。 宜しくお願い致します。 ※VBAあまり詳しくはありません。

  • 改ページ線の消去

    Excel97です、VBのマクロの記録で印刷時に引かれる改ページの点線を消去しましたが記録で来ません、改ページの点線の消去はどのように記述するのでしょうか、 教えてください、

  • Excel2000：マクロのセル範囲の変更方法について

    マクロの自動記録でセルを範囲指定しグラフを作成したので、VisualBasicEditorで開くと、実行するセル範囲が固定されています。範囲を固定しないでマクロを実行したときに次に選択されている範囲に対して実行できるようにする方法を教えてください。VBA初心者になります。どうぞよろしくお願いいたします。

  • Excel2007のVBAで、セル範囲を指定し

    Excel2007のVBAで、セル範囲を指定して画像として保存したいです。 たとえば、 Worksheets("Sheet1").Range("A1:B10").CopyPicture xlScreen, xlBitmap Worksheets("Sheet2").Paste とすれば、別のシートに指定した範囲を画像にすることはでき、 さらにこれを、 With ActiveWorkbook.PublishObjects.Add(xlSourceSheet, "C:\test.html", _ "Sheet2", "", xlHtmlStatic, "image", "") .Publish (True) .AutoRepublish = False End With とすれば、画像を指定した場所に保存することはできると思います。 ただ、これだと無駄な処理をしているような気がしますし、実際時間も数秒必要です。 これが、グラフだと Worksheets("Sheet1").ChartObjects("グラフ1").Chart.Export Filename:="C:\graph.gif", FilterName:="gif" のように簡単に、しかも短時間で出来ます。 できれば、上記グラフのように、指定したSheetの指定したセル範囲を画像として指定した場所にPNGにて保存したいです。 どなたかご教授いただければ幸いです。

  • ＶＢＡのブラッシュアップについて（Excel）

    マクロ初心者です。 仕事でマクロを組む機会が増えました。 初心者向けの本を読みながらマクロの記録を実行したり、掲示板サイトで投稿記事を 参照して転用したりしておりますが、そのやり方に行き詰まりを感じるようになりました。 理解が浅いため、応用がきかないからです。 マクロの記録を使わずにＶＢＡでプログラムが書けるようになりたいのですが、効率のよい 勉強がありましたら、教えて頂けませんでしょうか？ よろしくお願い致します。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する