こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

【直線描画のプログラミング】を教えてください

何度も書きこんでしまい、申し訳ありません。
今度は【直線描画のプログラミング】を教えてください。
「ExcelSheet上で、左上の一角から放射線状に直線を引くプログラム」
を作りたいのです。

なかなか言葉では伝えにくいのですが…「ExcelSheetの左上の角(A1のマスの左上)を円の中心とし、中心から延びる無数の直線で(円の半径になります)、円の右側・半分から下(つまり四分の一)を作図するプログラミングをお願いいたします。
ちなみに円の大きさは、スクロールしなくても一目でわかるくらいの大きさでお願いします。

投稿日時 - 2009-01-12 13:08:24

QNo.4623991

困ってます

質問者が選んだベストアンサー

こんなのでは?
適当にtとstpを変更してください。
Sub sample()
Const pi = 3.1415
Const r = 200
Const stp = 100
Dim i As Single
Sheet1.DrawingObjects.Delete
For i = 0 To pi / 2 Step pi / stp
Sheet1.Shapes.AddLine 0, 0, r * Sin(i), r * Cos(i)
Next
End Sub

投稿日時 - 2009-01-12 13:22:43

お礼

hotosysさんへ
【直線描画のプログラミング】について質問させていただいた者です。
早速ご回答いただき、ありがとうございました。
hotosysさんに教えていただいたとおりに打ち込んでみたら、
まさに私が作成したかった図形が出てきました!!

私の拙い文章からプログラミングを考えてくださり、お手数をおかけしたと思いますが、本当にありがとうございました。

投稿日時 - 2009-01-12 13:41:24

ANo.1

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問