[[20180317173030]]　『任意の範囲をJPG保存したい』（きゅ）　ページの最後に飛ぶ

『任意の範囲をJPG保存したい』（きゅ）

エクセルで、選択範囲を簡単にJPG画像へ簡単に変換する方法ありますか？

任意の範囲を、選択したらJPGで名前を付けて保存出来ればうれしいのですが。

マクロか、何かで実現できないでしょうか？

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

 簡単に、ということなら、スクリーンショットを画像処理ソフトでトリミング
 したほうが早いです。新たにソフトを入れることなくウィンドウズにデフォルト
 で入っているソフト・機能でできると思います。

 VBAでできないことはないと思いますが、↑で紹介した方法が手っ取り
 早いと思います。
（カリーニン） 2018/03/17(土) 19:51

コピー→図として貼り付け、でいけました。
失礼しました。
（カリーニン） 2018/03/17(土) 19:54

 説明不足でした。
 コピー→図として貼り付け
 のあと、ブックをWEBページとして保存してください。
（カリーニン） 2018/03/17(土) 19:57

カリーニン様

貼付けでは、なくそれ自身を保存したいのですが・・・。

ダイレクトに、範囲指定→ＪＰＧで名前を付けて保存したいです。
（きゅ） 2018/03/17(土) 20:10

選択範囲を直接JPGにする機能はエクセルには無かったと思います。
通常は図として貼り付けた後、WEBページとして保存して画像
ファイルを取り出す、とすると思います。
あるいは、スクリーンショットをとってクリップボードの中身を画像処理
ソフトに貼り付けてファイル保存、とかです。

エクセルの機能のみに拘るのでしたら方法は分かりません。
他の方の回答をお待ちください。
（カリーニン） 2018/03/17(土) 20:25

校内検索代行
[[20080316143503]]

そして一部修正
Sub test()

    Dim r
    Dim ch As Chart

    Set r = Selection
    If TypeName(r) <> "Range" Then Exit Sub
    Application.ScreenUpdating = False
    r.CopyPicture xlPrinter
    Cells(1000, Columns.Count).Select   'グラフを作成しないようdataの無いところをselect
    Set ch = Charts.Add.Location(xlLocationAsObject, ActiveSheet.Name)
    With ch
        .ChartArea.Border.LineStyle = xlLineStyleNone
        .ChartArea.Height = r.Height
        .ChartArea.Width = r.Width
        .Paste
        .Refresh
        .Export Filename:="Test.jpg", FilterName:="JPG"
        .Parent.Delete
    End With
    Application.Goto r
 End Sub
（kazuo） 2018/03/17(土) 22:24

コメント返信：

[ 一覧(最新更新順) ]

[[20180317173030]] 『任意の範囲をJPG保存したい』（きゅ） ページの最後に飛ぶ

[[20180317173030]]　『任意の範囲をJPG保存したい』（きゅ）　ページの最後に飛ぶ