Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


10653 / 13646 ツリー ←次へ | 前へ→

【20615】サブルーチンがわかりません いまい 04/12/13(月) 15:22 質問[未読]
【20617】Re:サブルーチンがわかりません Asaki 04/12/13(月) 15:31 発言[未読]
【20653】Re:サブルーチンがわかりません ichinose 04/12/14(火) 7:42 発言[未読]

【20615】サブルーチンがわかりません
質問  いまい  - 04/12/13(月) 15:22 -

引用なし
パスワード
   すいません。どうしても3重円と正三角形を描くサブルーチンがわかりません。
どなたか教えてもらえませんか?お願いします。

【20617】Re:サブルーチンがわかりません
発言  Asaki  - 04/12/13(月) 15:31 -

引用なし
パスワード
   こんにちは。

↓こちらですか?
http://www.vbalab.net/vbaqa/c-board.cgi?cmd=ntr;tree=20389;id=excel

少なくとも、ご自分の努力を提示してください。
また、↑のように放置しないで、きちんとレスを付けてください。

【20653】Re:サブルーチンがわかりません
発言  ichinose  - 04/12/14(火) 7:42 -

引用なし
パスワード
   いまい さん、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辺が等しいのですから、そのためにどんな計算が必要か)

考えてみて下さい。

10653 / 13646 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free