ExcelのVBAでこんなこと出来ますか？

質問

Excelのオートシェープで、直線を2本引きます。
その、2本を選択して、ボタンを押すと2本の直線の交点まで、各々の直線が延びるようなマクロって出来るのでしょうか？
－－

　　　　｜
　　　　｜
の直線を
－－－－┐
　　　　　　　|
　　　　　　　|
　　　　　　　|
このように交点で接続したいのです。
どなたか？わかる人いませんか？宜しくお願い致します。

回答No.2

imogasi

２直線は水平線１本と垂直線１本ですか。それなら簡単ですが。
そうでないなら
（１）２直線の交点を求める（４点で２点ずつを通る直線の交点を求める）。数学の公式を探して使え。
（２）各直線の端点から、交点まで直線を引け。
直線の勾配によりどちらが採用（延長）端点になるか２通りありそう。
この２つを勉強のこと。
ただ２直線内交点になる場合の条件（本件では、無い条件）も難しそうですが。
丸投げで、回答者にコードまで書かせるのは勘弁願いたい。

回答No.1

assault852

できるかどうかは別にして。

そのようなことがマクロでできないとかなり困るのでしょうか。
宜しければ理由を教えてください。

直線を確実に交差させる方法はいくらでもあると思うのですが。