|
▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>以前の記事を参考に[【5364】シートのJPEGファイル作成]VBAを組んだの
>>ですが、出力されるJPG画像が実際にセルを範囲指定してペイントに貼り付
>>けた内容と違うのです。
>
>過去ログ[#5364]を参考にしたということですが、現在どのようなコードにしていますか?
>差し支えなければ、コードを提示していただけるとコメントがつきやすいかもしれません。
かみちゃんさん早速のレス有難うございます。
エクセルへボタンを配置し、それがクリックされた際、処理するようにしてあります。
Sub ボタン1_Click()
Dim strSavePath As String
Dim JPG_Sheet As String
Dim JPG_Sele As String
' 現在開いているファイル名から保存用のファイル名(JPEG)を指定
strSavePath = ActiveWorkbook.FullName
strSavePath = Mid(strSavePath, 1, Len(strSavePath) - 4)
strSavePath = strSavePath & ".jpg"
' 画像化する範囲を指定
JPG_Sheet = "Sheet1"
JPG_Sele = "A1:Q19"
With Application
.ScreenUpdating = False
.DisplayAlerts = False
Worksheets(JPG_Sheet).Range(JPG_Sele).CopyPicture 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:=strSavePath, FilterName:="JPG"
End With
.Delete
End With
.DisplayAlerts = True
.ScreenUpdating = True
End With
MsgBox "画像を保存しました。", vbOKOnly + vbInformation, "画像保存"
End Sub
|
|