円弧の描画について
エクセルのワークシート上に2点(x1,y1)、(x2,y2)の座標があり、半径がrと決まっている場合に、(x1,y1)を始点、(x2,y2)を終点とする半径rの円弧を描きたいのですが、VBAで教えていただけますでしょうか?
例えばエクセルのワークシート上に2点(600,400)と(500,300)という座標があります。この座標は、
Dim ShapeA As Shape, ShapeB As Shape
Set ShapeA = ActiveSheet.Shapes.AddShape _
(msoShapeOval, 600, 400, 2, 2)
Set ShapeB = ActiveSheet.Shapes.AddShape _
(msoShapeOval, 500, 300, 2, 2)
というコードでワークシート上に描いています。
この2点をそれぞれ始点、終点として、半径100の円弧を描く方法を考えているのですが、
VBA初心者の為、困っています。VBAで円弧を描く方法がありましたら是非教えていただきたく
お願い致します。
よろしくお願い致します。
お礼
職場から今帰ってきました。 早い回答ありがとうございます。 さっそく計算してみます。