Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

48526 / 76732

←次へ　｜　前へ→


	【33141】Re:範囲指定したセルからJPEGファイルを作成

としくん - 06/1/3(火) 16:32 -


	引用なし

	パスワード

▼かみちゃんさん：
>こんにちは。かみちゃん　です。
>
>>以前の記事を参考に［【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

2 hits

▼

【33132】範囲指定したセルからJPEGファイルを作成 としくん 06/1/3(火) 15:01