図のような、黒地に白文字の画面をキャプチャした画像が、EXCELのシートの数十枚貼り付けてあります。
EXCELから印刷しようと思うのですが、黒地部分をそのまま印刷してしまうと、インクがもったいないです。
白字の文字が読めればよいので、現在は、EXCELに貼り付けてある画像を一枚一枚、別の画像ソフトでネガポジ変換して、白地に黒字にしてから、再度EXCELに貼り付けるようなやり方をしていますが、画像がたくさんあるので非常に手間です。
そこで、EXCEL上から、配置してある画像を簡単にネガポジ変換する方法、または印刷時にインクを無駄にしない方法(文字の視認性は確保)があれば教えてください。
ベストアンサー
-
bmax
満足60pt
１．印刷したいシートを選択してください。
２．メニューの 「ツール」 → 「マクロ」 → 「VisualBasicEditor」 の順に選択し
VBAの編集ツールを立ち上げます。
３．VisualBasicEditorのメニューの 「挿入」 から 「標準モジュール」を選択してください。
４．Module1の編集ウインドウが開きますので以下のコードを貼り付けてください。
Sub EcoPrint()
Dim myShape As Shape
For Each myShape In ActiveSheet.Shapes
If myShape.Type = msoPicture Then
myShape.PictureFormat.TransparentBackground = msoTrue
myShape.PictureFormat.TransparencyColor = RGB(0, 0, 0)
myShape.Fill.Visible = msoFalse
myShape.PictureFormat.Brightness = 0#
myShape.PictureFormat.Contrast = 1#
End If
Next
End Sub
５．VisualBasicEditorを終了するか、タスクを切り替えてExcelに戻り、印刷してください。
手法としては
マクロを組んで、黒の背景を透過色に、白字の部分を 明るさ0＝黒にしています。
サンプルの画像で試しに動かしましたが、実際の画像の背景色が厳密な黒（RGB(0, 0, 0)）ではない場合、コードの中の該当部分を変更してください。
背景色の確認の仕方ですが、
「マクロの記録」を行っている状態で、該当の図を選択し、表示される"図"メニューから
「透明な色に設定」を選び、背景の黒い部分をクリックしてください。
その後、マクロの記録を終了し、そのマクロの編集を行っていただければ、RGBの値が分かると思います。
-
sls
-
slsその他の回答
この質問へのコメント
質問の情報
- 登録日時
- 2008-03-11 16:14:59
- 終了日時
- 2008-03-16 07:42:16
- 回答条件
- 1人2回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
木の太い幹、木の太い根、を掘り出しました。このまま捨てるのは大変です。重いです。切るのも硬いです。干…
匿名質問者
1
-
今行きがかり上で中小企業を相手に民事訴訟の原告と被告で2件の裁判を抱えています。しかし何も深刻さはな…
asnaro_71
2
-
海外の習慣、民族的なことに詳しい方に質問です。 「玄界灘に生きた人々」という本で、「ダイコン官との旅…匿名質問者
-
【ナルコ】 私は医療に関して（当事者ではあるものの）素人です。 友人Aは「ナルコレプシー」的に、話して…
SE**.M1
-
外国から、王族が来ると、その人のパスポートは、ふつうのパスポートとは違う？ 外交官パスポートみたいな…匿名質問者
お使いのプリンタは何でしょうか？（メーカーや型番）
プリンタによっては白黒反転印刷（ネガポジ反転）できるものもあるで、それで印刷すのが早いです。
http://q.hatena.ne.jp/1114579981
ありがとうございます。
？？回答拒否にはしていないのですが・・・・。
なるほど、その発想はありませんでした。
プリンタドライバ側で制御すればできそうですね。
と、試したみたのですが、現環境ではそのような機能はないようでした・・・。
また、セル部分にメモを書いたりしているので、EXCELシート全部がネガポジ反転してしまうとNGな部分もあります。。。
で、もしかしてインクと書いているということは、
インクジェットプリンタをお使いでしょうか？
どちらにしても、お使いのプリンタ環境の情報がないと
インクを無駄にしない方法などを回答するには非常につらいものがあると思いますので
プリンタのメーカーとプリンタの型番などは示されたほうがよいと思います。
失礼しました。正しくはインクではなく、トナーとなります。
ただ、環境は適宜変わります。データを社内や出張先で印刷するからです・・・ですので、プリンタドライバも状況によって変わることが多いです。
そのため、プリンタドライバで解決する方法も一つの手として、できる環境ならそうしたいのですが、できれば、エクセルなど、ソフトレベルで何とかできる方法のほうがベターだと考えています。
説明不足で申し訳ありませんでした。
コードを貼り付けた後、F5キーやメニューの実行などで実行してください。
恐らくお気づきになられたと思いますが、念のため追記しておきます。
ご丁寧にありがとうございました。
早速教えていただいた関数を用いて、アドインを作ってみました。
「EcoPrint」という関数名、素敵ですっ！