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