Excel VBA質問箱 IV

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

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


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

850 / 76735

←次へ　｜　前へ→


	【81547】図形のファイル存在がうまくいかない

YAMADA - 20/11/29(日) 10:29 -


	引用なし

	パスワード

VBAでエクセルのシートにグラフを表示し、それをファイル保存します。
図は綺麗にできていて、通常はうまくいきます。しかし、同時に他のソフト（Webなど別のアプリ）を動かしたり、通信が遅いとファイルがうまく保存しません（小さい中身のないファイルになる）。バッティングするようなら少し待ってもいいのですが、いつでもうまく保存するにはどうすればいいですか。
以下が、プログラムです

Application.OnTime Now, Procedure:="'保存 """ & ファイル名 & """ '"

Sub 保存(ファイル名 As String)
利用者 = Application.UserName: If 利用者 = "Taro Yamada" Then 利用者 = "Taro"
a = "C:\Users\" & 利用者 & "\OneDrive\OneDriveドキュメント\エクセル" & "\Chart\" & ファイル名 & ".jpg"
With ActiveSheet.ChartObjects("貼付用")
.Chart.Paste
.Chart.Export "C:\Users\" & 利用者 & "\OneDrive\OneDriveドキュメント\エクセル" & "\Chart\" & ファイル名 & ".jpg"
.Delete
End With
End Sub

DoEventsを.Chart.Pasteを入れてもうまくいきません

2 hits

▼

【81547】図形のファイル存在がうまくいかない YAMADA 20/11/29(日) 10:29