複数の２点を線で結ぶソフトはありませんか？

質問

こんなソフトは知りませんか？エクセルでできればいいんですけど。
以下のように、点１(x1,y1)、点２(x2,y2)の座標が１０セットあります。ここで点１と点２を結ぶ１０本の線がかけますが、これを書けるソフトはないでしょうか？データはランダムに発生するとします。

また、線１から線１０までアニメでかけるソフトがあればなおいいんですが。

N x1 y1 x2 y2
1 10 0.1 -10 -0.1
2 10 0.2 -10 -0.2
3 10 0.3 -10 -0.3
4 10 0.4 -10 -0.4
5 10 0.5 -10 -0.5
6 10 0.6 -10 -0.6
7 10 0.7 -10 -0.7
8 10 0.8 -10 -0.8
9 10 0.9 -10 -0.9
10 10 1 -10 -1

回答No.1

suz83238 · ベストアンサー

一番簡単なのは下記でどう？
X軸のスケールを-10～10、Y軸のスケールを-0.1～0.1
あとはお好みで。

Sub yyy()
ActiveSheet.Shapes.AddLine(200, 200, 600, 200).Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 10
ActiveSheet.Shapes.AddLine(400, 0, 400, 400).Select
Selection.ShapeRange.Line.ForeColor.SchemeColor = 10
For i = 2 To ActiveSheet.Cells.SpecialCells(xlLastCell).Row
x1 = Cells(i, 1).Value
y1 = Cells(i, 2).Value
x2 = Cells(i, 3).Value
y2 = Cells(i, 4).Value
xx1 = 20 * x1 + 400
xx2 = 20 * x2 + 400
yy1 = 200 - 200 * y1
yy2 = 200 - 200 * y2
ActiveSheet.Shapes.AddLine(xx1, yy1, xx2, yy2).Select
Next i
End Sub

お礼

ご回答ありがとうございました。マクロが詳しくなくて教えてほしいのですが、マクロにそのままyyy()をコピーしてみましたが、

yy1 = 200 - 200 * y1

のところで「型が一致しません」となります。何が問題なのでしょう？

補足

大変すみません。自己レスです。x1の最初をセル(A2)に置いていませんでした。A2においたら書けました。すばらしい。

欲を出すようで恐縮ですが、これをアニメで時間を置いて順にN=1から10まで作図できるようなソフトあれば教えてください。エクセルでpauseのような関数があるといいのですが・・。