|
こんにちは
エクセルのグラフを使ってアニメーションをやっているのですが
動きがぎこちなくなってしまいます。
コードはこんな感じです。
sub Anime
Dim data as Integer
Dim mn as Integer
Dim D1(i, j) as Double
Dim D1(i, j) as Double
Dim L1(i, j) as Double
Dim T1(j) as Double
Dim IA(i, j) as Double
Dim RA(i, j) as Double
'(ここでデータの格納などを必要な処理をしてます)
'DATA = 32000
'MN = 1〜10ぐらい
'Skip = 10
For j = 1 To data
total = total + 1
For i = 1 To MN
Cells(i + 1, 1) = D1(i, j)
Cells(2 + j, 8) = D1(i, j)
Cells(2 + j, 9) = L1(i, j)
Cells(2 + j, 10) = T1(j)
Cells(2 + j, 11) = IA(i, j)
Cells(2 + j, 12) = RA(i, j)
Next i
If (total = skip) Then
DoEvents
total = 0
End If
Next j
end sub
またグラフ(散布図3つ、バブル3D1つ)は
計4つ同時に処理させています。(させすぎかもしれませんが・・・)
アドバイスよろしくお願いします。
|
|