投稿日 | : 2004/11/17(Wed) 14:26 |
投稿者 | : アルゼイド |
Eメール | : |
URL | : |
タイトル | : Re^2: グラフに●で値をとっていく方法 |
調べて●であたいをとっていくことはできました!
With pic1
.FillStyle = vbFSSolid
.FillColor = vbBlue
End With
For u = 0 To 9
x1 = 500 + 6800 / 9 * u
y1 = 300 + 6800 / Text22.Text * (Text22.Text - Val(Mid(Form2.List1.List(u), 4, 6)))
pic1.Circle (x1, y1), 70, vbBlue
Next u
でも、これを2回実行すると今度はグラフがぬりつぶされてしまうのです…。
どうすればいいのでしょうか?アドバイスお願いします。