|
いまい さん、Asakiさん、おはようございます。
>すいません。どうしても3重円と正三角形を描くサブルーチンがわかりません。
>どなたか教えてもらえませんか?お願いします。
この「どうしても・・・」という試された事を記述して下さいね。
Asakiさんがリンク先で記述されているようにマクロの記録を使用すれば、
楕円は、
ActiveSheet.Shapes.AddShape(msoShapeOval, 120#, 238.5, 117.75, 89.25).Select
二等辺三角形は、
ActiveSheet.Shapes.AddShape(msoShapeIsoscelesTriangle, 347.25, 315.75, 159.75, _
62.25).Select
なんてコードを生成してくれます。
楕円を円に変更するには、上のコードの数値をどのように変更すればよいか?
(円の半径は、一定ですから、どうすればよいか)
又、二等辺三角形を正三角形にするには、上のコードの数値をどのように変更すればよいか??
(正三角形は、3辺が等しいのですから、そのためにどんな計算が必要か)
考えてみて下さい。
|
|