Excel VBA質問箱 IV

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

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


60716 / 76732 ←次へ | 前へ→

【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辺が等しいのですから、そのためにどんな計算が必要か)

考えてみて下さい。
0 hits

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

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