Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


75753 / 76732 ←次へ | 前へ→

【5411】Re:シートのJPEGファイル作成
回答  bykin  - 03/5/11(日) 18:43 -

引用なし
パスワード
   こんばんわ。

JPEGで出力する方法をいろいろ調べてました。
グラフに貼り付けたら出来る(サイズ合わせにちょっと工夫が必要)ようです。
出力したいセル範囲を選択して下のマクロを実行してみてください。
(出力ファイル名は適宜変更してください)

Sub test()
  Dim sw As Variant
  If TypeName(Selection) <> "Range" Then
    MsgBox "セルが選択されていません", vbCritical
    Exit Sub
  End If
  If Selection.Areas.Count > 1 Then
    MsgBox "複数のセル範囲に対しては実行できません", vbCritical
    Exit Sub
  End If
  sw = False
  Do
    sw = Application.InputBox("0:画面に合わせる 1:用紙に合わせる", Type:=1)
    If VarType(sw) = vbBoolean Then Exit Sub
    If sw = 0 Or sw = 1 Then Exit Do
  Loop
  With Application
    .ScreenUpdating = False
    .DisplayAlerts = False
    Selection.CopyPicture IIf(sw = 0, xlScreen, xlPrinter)
    With Worksheets.Add
      Charts.Add.Location Where:=xlLocationAsObject, Name:=.Name
      With .ChartObjects(1)
        .Border.LineStyle = xlLineStyleNone
        .Chart.Paste
        .Height = Selection.Height + (.Chart.ChartArea.Top) * 2
        .Width = Selection.Width + (.Chart.ChartArea.Left) * 2
        .Chart.Export Filename:="C:\Test.jpg", Filtername:="JPG"
      End With
      .Delete
    End With
    .DisplayAlerts = True
    .ScreenUpdating = True
  End With
End Sub

「1:用紙に合わせる」を選択したら印刷するときの形でデータを取得するので
セルの枠線なんかは非表示になります。
但し、その場合でも実際の印刷イメージとは若干異なります(^^;;
結構いい線いってるとは思うけど・・・

試してみてな。
ほな。

2 hits

【5364】シートのJPEGファイル作成 ねこぽん 03/5/8(木) 13:31 質問
【5371】Re:シートのJPEGファイル作成 bykin 03/5/8(木) 22:25 発言
【5392】Re:シートのJPEGファイル作成 ねこぽん 03/5/9(金) 16:58 お礼
【5393】Re:シートのJPEGファイル作成 こう 03/5/9(金) 18:49 回答
【5413】Re:シートのJPEGファイル作成 ねこぽん 03/5/12(月) 11:25 お礼
【5416】Re:シートのJPEGファイル作成 bykin 03/5/12(月) 13:00 回答
【5430】Re:シートのJPEGファイル作成 ねこぽん 03/5/13(火) 13:02 お礼
【5411】Re:シートのJPEGファイル作成 bykin 03/5/11(日) 18:43 回答
【5414】Re:シートのJPEGファイル作成 ねこぽん 03/5/12(月) 11:36 お礼
【5422】Re:シートのJPEGファイル作成 bykin 03/5/12(月) 22:38 回答
【5431】Re:シートのJPEGファイル作成 ねこぽん 03/5/13(火) 14:19 お礼
【5437】Re:シートのJPEGファイル作成 bykin 03/5/13(火) 22:07 回答
【5439】Re:シートのJPEGファイル作成 bykin 03/5/14(水) 0:05 発言
【5449】Re:シートのJPEGファイル作成 ねこぽん 03/5/14(水) 15:16 お礼

75753 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free