いつも参考にさせていただいています。 当方Win-10Pro EXCEL2016の環境です。
毎朝EXCELをタスクスケジュラーで起動させ、グラフを画像(JPG形式)で保存して、スクリーンセーバーの写真モードで複数のグラフを切り替えながら表示させようと思っています。
ステップインで実行すると、JPGファイルはグラフが入ったが画像になりますが、通常実行だと白紙の画像になってしまいます。 コードの途中で、Wait や Sleep を入れてもうまく行きません。
うまく行く方法をご教示ください。
<ThisWorkBook>
Private Sub Workbook_Open()
’グラフ画像化
Call imagesave
’EXCELを閉じる
Application.Quit
End Sub
<標準モジュール>
Option Explicit
Sub imagesave()
Dim myPrintArea As Range
Dim myCharts As Chart
Dim Filename As String
Dim cnt As Integer
Const myPass As String = "C:/utl/記録表/"
'保存ファイル名を設定
Filename = myPass & "5.kiroku.JPG"
'選択範囲を取得
Set myPrintArea = ThisWorkbook.Sheets("記録表").Range("Print_Area")
'選択した範囲を画像形式でコピー
myPrintArea.CopyPicture appearance:=xlScreen, Format:=xlPicture
'画像貼り付け用の埋め込みグラフを作成
Set myCharts = ActiveSheet.ChartObjects.Add(0, 0, myPrintArea.Width, myPrintArea.Height).Chart
'埋め込みグラフに貼り付ける
myCharts.Paste
'JPEG形式で保存
myCharts.Export Filename:=Filename, filtername:="JPG"
'埋め込みグラフを削除
myCharts.Parent.Delete
End Sub
実際は複数のシートのグラフをすべて画像で保存しようと思っていますが、割愛して一つだけに
しました。 それでもうまく行きません。
処理が速すぎて、画像処理が追い付かないのと思い、途中で wait や Sleep を 10秒程度いれて
見ましたが、いずれもダメでした。
No.3ベストアンサー
- 回答日時:
こんにちは
試してみましたが、Pasteメソッドの際にChartを明示的にアクティブにしておかないとうまくペーストできないようですね。(はっきりとは確認していませんが・・)
>myCharts.Paste
の前に1行追加して、
myCharts.Parent.Activate
myCharts.Paste
としたらうまく動作しませんか?
myCharts.Pasteの前に myCharts.Parent.Activate を1行追加した
ところうまく行きました。 ありがとうございました。 助かりました。
No.1
- 回答日時:
こんにちは。
doevents 入れてもダメですかね?
ダメならExcelを閉じる前に無限ループでファイルの存在確認を入れてみては?
do
if dir(ファイルパス)<>"' then
exit do
end if
doevents
loop
動作未検証です。
doevents 入れてもダメでした。
ファイル数が24個なら、プロシジャーの最後まで実施されるが、画像ファイルは白紙
ファイル数が48個なら、30分経っても画像ファイルが作られません。
ALT+F11 で Microsoft Visual Basic for Applications - [Module1(コード)]
になったまま停止。 ■のリセットボタンを押すと
Microsoft Visual Basic for Applications -[ブック名]- [Module1(コード)]
となる。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
好きな人を振り向かせるためにしたこと
大好きな人と会話のきっかけを少しでも作りたい、意識してもらいたい…! 振り向かせるためにどんなことをしたことがありますか?
-
歳とったな〜〜と思ったことは?
歳とったな〜〜〜、老いたな〜〜と思った具体的な瞬間はありますか?
-
最強の防寒、あったか術を教えてください!
とっても寒がりなのですが、冬に皆さんがされている最強の防寒、あったか術が知りたいです!
-
AIツールの活用方法を教えて
みなさんは普段どのような場面でAIツール(ChatGPTなど)を活用していますか?
-
【選手権お題その2】この漫画の2コマ目を考えてください
サッカーのワンシーンを切り取った1コマ目。果たして2コマ目にはどんな展開になるのか教えてください。
-
【VBA】Excelの特定範囲のセルを画像で保存したい
Visual Basic(VBA)
-
エクセルのVBAでクリップボードにコピーした画像をpng(or jpg or bmp)保存したい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・「みんな教えて! 選手権!!」開催のお知らせ
- ・漫画をレンタルでお得に読める!
- ・【大喜利】【投稿~1/20】 追い込まれた犯人が咄嗟に言った一言とは?
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・【選手権お題その3】この画像で一言【大喜利】
- ・【お題】逆襲の桃太郎
- ・自分独自の健康法はある?
- ・最強の防寒、あったか術を教えてください!
- ・【大喜利】【投稿~1/9】 忍者がやってるYouTubeが炎上してしまった理由
- ・歳とったな〜〜と思ったことは?
- ・ちょっと先の未来クイズ第6問
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・【選手権お題その2】この漫画の2コマ目を考えてください
- ・【選手権お題その1】これってもしかして自分だけかもしれないな…と思うあるあるを教えてください
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
- ・都道府県穴埋めゲーム
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルにおける、グラフの指...
-
エクセルでグラフタイトルが折...
-
エクセルのグラフの一部拡大
-
エクセルグラフの一括設定。
-
たくさん作った同じ設定のグラ...
-
エクセル(Excel)の目盛りの一...
-
エクセル:ぴったり重なった後...
-
EXCEL・複数ある円グラフの円の...
-
~エクセル~円グラフのみを抽...
-
エクセルで作業ごとの時間をグ...
-
EXCELで海の潮見表(タイドグラ...
-
エクセルグラフの数値軸(Y)の...
-
グラフ作成(エクセル)でのエラ...
-
pc版apexをしているとpcが落ちる
-
Excelで作ったグラフをIllustra...
-
エクセルのグラフタイトルを中...
-
excel2010 グラフエリアの外の...
-
EXCELのグラフ作成で更新...
-
EXCELのグラフが見えなくなりま...
-
xyグラフ
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルでグラフタイトルが折...
-
エクセルにおける、グラフの指...
-
たくさん作った同じ設定のグラ...
-
EXCEL・複数ある円グラフの円の...
-
エクセルグラフの一括設定。
-
エクセルのグラフの一部拡大
-
パワーポイントに貼り付けたエ...
-
~エクセル~円グラフのみを抽...
-
エクセルグラフの数値軸(Y)の...
-
イラレのグラフがグループ解除...
-
エクセル(Excel)の目盛りの一...
-
Wordでレポートを作っています...
-
エクセルのグラフが作成した通...
-
エクセル:ぴったり重なった後...
-
エクセルで作業ごとの時間をグ...
-
excel2010 グラフエリアの外の...
-
EXCELでの棒グラフの太さについて
-
Excel:とびとびの日付のデータ...
-
EXCEL
-
Word
おすすめ情報