オートシェイプの曲線の交点の座標を求める方法

質問

オートシェイプの曲線の交点の座標を求める方法
パワーポイントでオートシェイプの曲線を使って図を描いたのですが、わけあって交点の座標を求める必要が生じました。
VBAを使うことができるのですが、どのようにすると交点を求められるでしょうか。

回答No.1

imogasi · ベストアンサー

この点での知識は不十分なものです。
とりあえず断言（?）して置きますので、後の回答があればそちらを考えてください。
PPTよりエクセルなどの方がこの辺の機能が充実していると思うが、エクセルVBAでも、これは出来ないと思う。
現状ではエクセルシートに円（真円でさえも）をハンドで画面に書いたとする。－－＞中心と半径の数値を求める
これさえ出来ないのでは。
ただその図形オブジェクトをVBAで捉えることができれば（NameやIndexで）、真円に限りTop、Left、Width、Heightから半径・中心は割り出せるかも。
VBAで半径、中心点を指定してシートに円を描くことはたやすく出来る。
真円の場合はTop、Left、Width、Heightの値から求められるかもしてない（WIDTHの半分で半径が求められるよう）。
中心・半径が求められれば円の方程式を用いて、２つの交点を数式を組んで求めることは面倒くさいが可能だろう。
しかしここで言っている曲線となると、自由度が広がって極度に難しくなる。
そういう専用のソフトが、もし在れば使う世界だろう。
エクセルの思想と違う範疇と思う。
例　数式から直接グラフを描く。ーー＞不可能。エクセルはそれを目指してない。
エクセルではグラフの漸近線で似たような要求にこたえてくれたるようだが、他では例を見ない。
類似話題　
http://www.keep-on.com/excelyou/2001lng4/200104/01040410.txt
参考　エクセルVBA
Sub Macro1()
ActiveSheet.Shapes.AddShape(msoShapeOval, 311.25, 154.5, 93.75, 93.75).Select
MsgBox Selection.Width / 2
　　 MsgBox Selection.Left + Selection.Width / 2
End Sub