|
bykin さん こんにちわ
確かにこの記述で上手くいきました。
ありがとうございます。
質問ついでにもう一つお伺いします。
実は、印字内容は縦方向の印刷内容で、JPEGを印刷したときにA4の縦用紙で印字できるようにイメージを保存したいのです。
これを
> Worksheets(JPG_Sheet).Range(JPG_Sele).CopyPicture xlPrinter
> Worksheets(JPG_Sheet).Range(JPG_Sele).CopyPicture xlScreen, xlBitmap
に変更をすると印字方向は良いのですが、中身が真っ白です。
なんでやろ?
>Sub test2()
> Dim JPG_Sheet As String
> Dim JPG_Sele As String
>
> JPG_Sheet = "Sheet1"
> JPG_Sele = "A1:C5"
>
> With Application
> .ScreenUpdating = False
> .DisplayAlerts = False
> Worksheets(JPG_Sheet).Range(JPG_Sele).CopyPicture xlScreen, xlBitmap
> 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
>
|
|