テキストをちょうどいい感じの楕円で囲む

テキストをいい感じのサイズの楕円で囲む方法

テキストの長さに応じて、適当な形の楕円がそのテキストを囲むようにするには、どうすればよいでしょうか。

作成方法

例えば、text7というテキストオブジェクトを囲む場合には、以下のように記述します。

Ellipse[Midpoint[Corner[text7,4], Corner[text7,1]], Midpoint[Corner[text7,2], Corner[text7,3]], Corner[text7,1]] 

楕円のつぶれ具合をコントロールしたいときは、数値オブジェクトr（0<=r<=1.5）を用意して、以下のように記述します。

Ellipse[Translate[Midpoint[Corner[text7, 4], Corner[text7, 1]], (-r, 0)], Translate[Midpoint[Corner[text7, 2], Corner[text7, 3]], (r, 0)], Corner[text7, 1]]