| |
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を入れてもうまくいきません
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
