JPEGファイル作成

質問

すみませんが教えてください。
EXCELで作成した図などを、
あらかじめ決まった範囲をコピーしてJPEG画像を作成したいのですが、
どなたか教えていただけませんでしょうか？
かなりの量を作成しないといけないので
VBA等を使用する方法でも構いません。
よろしくお願いします。

回答No.3

marbin · ベストアンサー

＃2の作業をマクロの自動記録してみた
コードが↓です。
コードをいじってSelectをしないようにすれば
高速になると思います。

***********
Sub Macro1()
Range("D4:E9").Select
Selection.Copy
ActiveSheet.Pictures.Paste(Link:=True).Select
Selection.ShapeRange.IncrementLeft -15.75
Selection.ShapeRange.IncrementTop 134.25
Range("B7").Select
Application.CutCopyMode = False
ChDir "C:\Documents and Settings\marbin\デスクトップ"
ActiveWorkbook.SaveAs Filename:= _
"C:\Documents and Settings\marbin\デスクトップ\Bookx.htm", FileFormat:=xlHtml, _
ReadOnlyRecommended:=False, CreateBackup:=False
End Sub
**********

補足

ありがとうございます。
この方法でやってみようと思います。
ただ、以下のようなことは出来るのでしょうか？
ハードコピーをとってからの作業ですが、
JPEG形式で作成したいのですが、いかがでしょうか？

回答No.5

noname#8185

セル罫線（引いていないもの）が必要なければ、
「ツール」-「オプション」－「表示タブ」
の罫線のチェックをはずせば図だけになります

ハードコピーのフリーソフトは以下に

　　これはショートカットが割り当てられているので
　　保存まで面倒ではありません

かなり良いソフトでは

参考URL：

http://www.woodybells.com/winshot.html

お礼

参考にしてみます。
ありがとうございました。

回答No.4

marbin

GIF→JPGは、リネームソフトなどで
拡張子を変更するだけでいけます。

一つのフォルダに画像ファイルを集めておき、
フォルダの中の全ファイルを指定して変換、
とすれば手間が減ります。

お礼

早速、試してみます。
ありがとうございました。

回答No.2

marbin

ちょっと回りくどいですが・・・。

対象のセル範囲をコピー
↓
Shiftキーを押しながら「編集」をクリック
↓
「図のリンク貼付け」をクリック
↓
「名前をつけて保存」でWEB形式を選択して保存
↓
HtMLファイルと画像等のフォルダが生成されますので、
画像等のフォルダの中にリンク貼付けした部分が画像
データ（おそらくGIF形式）として保存されている、
と思います。

回答No.1

noname#8185

エクセルのハードコピーでよろしいのですか？