表を作成し、外枠を太線に、内側の横罫線を細線にしています。
複数ページにまたがった時に、最終ページ以外は最終行が細線になります。
行数が変わっても、最終行を太線にする方法があったら教えて下さい。

このQ&Aに関連する最新のQ&A

A 回答 (2件)

印刷する時に、各ページの表がきちんと太線で囲まれていたいという事でしょうか。


ページ枚数がそんなに多くなければ“改ページ”を使うのも手なんでしょうが…
改ページすれば、行数が変わっても最終行(各ページのですね)は太線のままです。

この場合、太線にするのは手動ですので、ページが多いと大変な作業ですので不向きなんですけどね。
    • good
    • 0

回答がありませんね。

Excelの印刷機能だけではしかたないでしょうね。
それでは回答にならないと思い、参考に下記のマクロを書いてみました。
印刷範囲を設定して、ツール→マクロ→マクロでLineChangeを実行すれば各頁を太枠で囲んだ印刷になると思います。今は印刷プレビューにしてあります。PrintPreviewをPrintOutにすれば印刷します。(Excel2000です)

やってることは単純で、
 (1)外枠の太線の種類を調べる(どのサイズか不明のため)
 (2)改頁位置を調べる(最終行が空白でない場合のために画面を動かしています)
 (3)各改頁位置の1行前の下線を調べた太線にする
 (4)印刷プレビュー
 (5)変更した太線を元の細線に戻す
です。印刷前後に処理時間を要します。(印刷枚数によりますが)
ちょっと長くなりました。ご参考に。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、挿入→標準モジュール で標準モジュールを挿入し、そこに貼り付けます。
'(Public prtRg ~ End Sub の範囲をコピーして貼り付けます)

Public prtRg As Range '印刷範囲
Public colNum As Integer '印刷範囲列数
Public endRowNum As Long '印刷範囲の最終行
Public LineWeight As Long '太線の種類
Public cl As Integer '列カウンタ

Public Sub LineChange()
  On Error GoTo ErrorHandler '印刷範囲を設定していない場合

  Set prtRg = Range("Print_Area") '印刷範囲の列数、最終行を求める
    colNum = prtRg.Columns.Count: endRowNum = prtRg.Rows.Count
    prtRg.Cells(endRowNum, 1).Select '印刷範囲の最終行に移動

  '太線の種類を調べる
  Dim rg As Range 'セル
  For Each rg In prtRg
    If rg.Borders(xlEdgeLeft).LineStyle <> xlNone Then
      LineWeight = rg.Borders(xlEdgeLeft).Weight '太線の種類
      Exit For
    End If
  Next

  'Application.ScreenUpdating = False '画面更新を止める
  LineChange_Sub xlThin, LineWeight '頁の最後の線を太くする
  ActiveSheet.PrintPreview '今はプレビュー。PrintOutで印刷
  LineChange_Sub LineWeight, xlThin '頁の最後の線を細くする
  'Application.ScreenUpdating = True '画面更新

  Exit Sub
ErrorHandler:
  If Err = 1004 Then MsgBox "印刷範囲を設定して実行して下さい"
End Sub


'頁の最後の線の太さを変える
Public Sub LineChange_Sub(srcWeight, chgWeight)
  Dim cot As Integer '改行カウンタ
  Dim hPB As Integer '改行位置
  Dim pageEnd As Range '頁の最後の行

  hPB = ActiveSheet.HPageBreaks.Count
  For cot = 1 To hPB
    Set pageEnd = ActiveSheet.HPageBreaks(cot).Location.Offset(-1, 0)
    For cl = 1 To colNum
      '頁の最後
      With pageEnd.Offset(0, cl - 1).Borders(xlEdgeBottom)
        If .LineStyle <> xlNone Then
          If .Weight = srcWeight Then '線の太さを変える
            .Weight = chgWeight
          End If
        End If
      End With
    Next
  Next
End Sub
    • good
    • 0

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

QIllustratorで線がクレヨン風のイラストを作りたいのですが…

お世話になります。
Illustratorにてイラストを描くのですが、
パスの綺麗なラインではなく、ちょっとガタガタっとした
味のある線にしたいと思ってます。
イメージとしては画用紙にマジックで描いたようなちょっと
滲んだ線です。

イメージとしましては、下記urlのようなイラストです。
http://www.orangepage.net/ad/orangepage_cafe/index.html

自分が試したやり方としましては、パスでイラストを描いて、
線をブラシライブラリに登録してある「アーティステック」等で
いろいろ試しましたが、イメージと合いません。
ブラシの設定だとやり過ぎで、もっとurlのような素朴な感じにしたいのです。

そこで、画用紙に下書き→スキャン→ライブトレースをしたのですが、
やはり線があまり綺麗ではありませんでした。

urlイラストを描いた方は、ライブトレースなのかな?とは
思っているのですが、こういうイラストを描くにはどうしたら
良いのでしょうか?

Aベストアンサー

2番の方の言われるように、
完成イラストとしてはイラストレータEPS形式で保存されていても、
輪郭線は手書きをスキャニングされたように見えます。

モノクロ2階調(線画)で読み込んで、カラーモード(CMYK)に変換し、選択範囲からパス化、着色。
またはモノクロ2階調またはグレースケールのTiff画像をイラストレータで着色、スウォッチで塗りを設定してあるのではないでしょうか。

気負わず、簡単な方法で仕上げるのが素朴感を演出するこつでは?

Q縦長表の外枠に太罫線。改ページごとに外枠をつけるには

Excel2003です。
縦長の表があります。印刷すると3ページに及びます。
外枠に太罫線をつけています。
印刷すると自動改行され、外枠に太罫線を付けている為、1ページは下の外枠だけが印刷されず、2ページ目は上下とも、外枠なし、3ページは上だけ無し。
改ページごとに太罫線を間に入れていましたが、見栄えも悪く、改行される行が変われば、また罫線を引きなおすのは面倒です。
Excelの設定で、出来ないものでしょうか?

Aベストアンサー

罫線の太さの調整はできませんが、
各ページごとにに少し太めの罫線をつけるなら、
以下の方法で可能です。
1.全てのセルに「白」色を付ける→枠線が消える
2.必要なセルに罫線を付ける
3.「ページ設定」の「シート」タブ「印刷」の項目で
 「枠線」にチェックを入れる
この状態で印刷すると、各ページの外枠が少し太くなって印刷されます.

Q天野喜孝先生のイラストの主線の画材はなんですか?

天野喜孝先生のイラストの主線(主にカラーイラスト)は何の画材を使用していらっしゃるのでしょうか。

よろしくおねがいいたします。

Aベストアンサー

こんばんわ。私の知る範囲で答えさせていただきます。
「季刊コミッカーズ」の冬号で、天野先生のイラストの製作風景やインタビューが約6ページ分掲載されているのですが、それによりますとペンの描写が「専用ペン」としかされていません。そのペンが写真で載っているのですが、すみませんが私には何という名前かわかりません・・・。ちなみに、「ペンの先をカッターで削ってから・・・」とあります。持つ部分はどうやらプラスチックのようで、先の部分(木炭のような感じ?)をつけペンのように刺して使うようです。
あいまいな表現ばかりで申し訳ありませんが、少しでもお役に立てたら幸いです。

QEXCELの印刷にて、最終行の表の外枠線について

EXCELで作成した表で印刷が複数毎になる場合
表中の横線がある列が存在すると、ページの最終行の下線(表の外枠線)が消えてしまう。
印刷時に無条件に外枠だけを印刷する設定/方法はありますか?

※excel 2000です

Aベストアンサー

はじめまして

>印刷時に無条件に外枠だけを印刷する設定/方法はありますか?
これは標準にはありません。

いちいち手動ですべてのページ末に横罫線を入れるのは大変なので、私はマクロを組んで、改ページごとに横罫線を入れるようにしています。

Excelにはデフォルトではページの概念がないので、本当に困りますよね。

Qphotoshop6で、イラスト(線)の色を全て一回で変える方法を教えてください。

黒ラインのイラスト(線のみ)をスキャナーで取り込みphotoshopで加工しています。イラスト全ての線の色を一回で別の色にしたいのですが、photoshop6での方法がわかりません。今は自動選択ツールを使って部分的に線の色を変えていますが、もともとの線の太さが違うようで(途切れてスキャンされた線もあり)何度も回数をかけなければ全体の線の色を変える事ができません。線の太さを均一にする作業から教えていただければありがたいです。よろしくお願いします。

Aベストアンサー

たびたびすみません。好きな色を指定できて、なおかつ楽な方法を思い出しましたのでご報告差し上げます。

--ステップ1------------------------------------------
スキャンした画像を読み込んだあと、

イメージ→色調補正→
明るさ・コントラスト→(適度に調整してください)

--ステップ2------------------------------------------
次にスキャンした画像の上に、調整レイヤーを作ります。

レイヤー→新規調整レイヤー→「グラデーションマップ」を選択後、そのままOKボタンを押してください。

--ステップ3------------------------------------------
「グレースケールマッピングに使用されるグラデーション」という、グラデーションの帯の表示が出てきます。
これをワンクリックしてみてください。
次に、グラデーションエディタというウィンドウが出てきます。このウィンドウの上部にあります、
「プリセット」の中から、白と黒が最もハッキリしたグラデーションを選択してください(Photoshop7.0では
左上から三番目にあるのですが、おそらく6.0でも同じかと思われます)。

これを選択すると、このグラデーションエディタウィンドウ下部にあります、グラデーションの帯の表示が
コントラストの強い、白と黒の帯に変わります。
この帯の上下左右に配置されている、四角いマーカーのような
オブジェクトのうち、左下のものを、ワンクリックしてみてください。

グラデーションエディタウィンドウ最下部にあります、「カラー:」の右にある小さな窓が真っ黒になったと思います。
この小さな窓を、ワンクリックしてみてください。

カラーピッカーウィンドウが表示されると思います。あとは、この中から好きな色を選ぶとよいでしょう。
※気に入った色は、色見本に追加するか、16進表記をメモしておくことをおすすめします。
(例えばオレンジであれば FF9600 などという数字です)

描線を好きな色にできたら、必要な場合表示レイヤーを結合してください。



描線を白にしたい場合は、まず、上記ステップ2までの手順を踏んでください。
「グレースケールマッピングに使用されるグラデーション」のグラデーションの帯の表示が出てきます。
この表示の下にあります、「逆方向」という項目にチェックを入れます。
白と黒が反転したと思います。さらに、グラデーションの帯の表示をワンクリックしてみてください。
「プリセット」の中から、白と黒が最もハッキリしたグラデーションを選択してください。
OKボタンを押してこのウィンドウを閉じます。残ったグラデーションのウィンドウも、OKを押して閉じてください。

次に、表示レイヤーを結合。そのままでは背景になっていると思いますので、この背景を
レイヤー→レイヤー複製で複製してください。
そして、レイヤーウィンドウのレイヤー効果メニュー(『通常』と表示されているところです)から
「スクリーン」を選択します。

下にある背景レイヤーをCtrl+Aですべて選択。その後、ブラシなどで白より暗い適当な色で塗ってみてください。
これで画像の描線が白色に変更されていることが確認できます。

どうでしょうか。ご参考になれば幸いです。

たびたびすみません。好きな色を指定できて、なおかつ楽な方法を思い出しましたのでご報告差し上げます。

--ステップ1------------------------------------------
スキャンした画像を読み込んだあと、

イメージ→色調補正→
明るさ・コントラスト→(適度に調整してください)

--ステップ2------------------------------------------
次にスキャンした画像の上に、調整レイヤーを作ります。

レイヤー→新規調整レイヤー→「グラデーションマップ」を選択後、そのままOKボタンを押してください。
...続きを読む

Qエクセル 罫線を1ステップで外枠と内側の両方に線がつく状態にしたい

エクセルの罫線はデフォルト下線ですが、1ステップで外枠にも内側にも罫線を引きたいです。

通常ツールバーの罫線ボタンの右(下向三角のプルダウン)をクリックすると、罫線が数種類(上のみ、下のみ、外枠のみなど)出てくるのでそこから選んでいます。

よろしくお願いします。

Aベストアンサー

メニューバーの
ツール-ユーザー設定-コマンドのタブ-分類から「書式」選択-コマンドをスクロールしていくと「格子」等があるので、それをツールバー内にドラッグしてください。

Qword 段組でイラストを入れると線が消える

word2003を使用しております。

 段組2にして、境界線を入れるにして
イラストを右側にいれ大きさを調整し、右側最大くらいにすると、
段組の線が消えてしまいます。
 イラストに余白があるのも分かりますが、それとは違う状況のようです。
また、図の上下で一番下にしてもだめです。
どなたか、解決方法をお教え願います。

Aベストアンサー

図を右クリック→図の書式設定→「レイアウト」タブで、折り返しの種類と配置を「行内」としてはどうですか。
 

QExcelの罫線(細線)を太線にしようとしたら灰色になってしまった。

社内で配布されたExcelのフォームにデータを入力しました。
見やすくするために罫線を太くしようとしたら、灰色になってしまい見にくくなってしまいました。
どこかに設定があるのだと思いますがどこかわかりません。
教えてください。
OSはWIN98でExcelのバージョンは不明です。

Aベストアンサー

印刷してみてもやっぱり罫線が灰色になるようでしたら、
参照対象のセルをドラッグして右クリック。
セルの書式設定を選択してください。
そうすると、罫線タグがあるので、みぎの方、下を自動化
又は黒を選択すると大丈夫だと思います。
でも、ずっと前に先生に操作を習ったときに、印刷させずに
画面上だけで見えるようにするときに灰色になっていたような
記憶があります。その辺は忘れてしまいました。
以上の操作は、エクセル97からオフィスパーソナルまで
共通事項だと思います。

Q井上雄彦さんのカラーイラストのように、下書きの線がわからなくなるように描く方法

井上雄彦さんのカラーイラストのように、
下書きの線がわからなくなるように絵を描く方法を教えていただけないでしょうか。
いつもは紙にできるだけ薄く下書きをして線を目立たせないようには描いているのですが…。

Aベストアンサー

下書きをせずに、絵の具で描く。という方法もあります。

あるいは、
水彩なら塗ったあとでも、上から消しゴムをかければ鉛筆の線は消えます。(薄くなります)
もしくは、
水彩色鉛筆で下書き(清書)します。これなら色を塗ったら線が溶けて絵の具と混ざります。

井上雄彦さんはどういう描き方されているのか気になりますね。

QExcelの外枠太罫線を2~3倍さらに太くしたい

Excelで図表を作っているのですが
「外枠太罫線」の太さを既定の太さのさらに2~3倍に太くしたいのですが、そういうことは可能でしょうか?

可否、可能だったらその方法

をどなたか教えてください。

よろしくお願いします。

Aベストアンサー

 セルの罫線に沿って直線を引きます。
 引いた直線上でダブルクリックすると「オートシェイプの書式設定」が表示されますので、線の太さを太くします。
 但し、セルを移動すると設定が変わります。


人気Q&Aランキング

おすすめ情報