円の中に等間隔に線を引くには

円の中に中心点を通る直線を等間隔で沢山引きたいのですが。
ワードやエクセルにそのような機能はあるでしょうか？
見た目でおおよそ等間隔に引くことならできるのですが、
寸分の狂いもなく等間隔に引きたいのですが。
(「寸分の狂い」といってもミクロのレベルでの正確さを求めている
わけではないです)

良い方法・良いソフトを御存知でしたら教えて下さい。

No.2 ベストアンサー 回答者： imogasi 回答日時： 2003/03/02 09:58

＞「等間隔で」の意味が良く判らないのですが下記でいかがですか。

円を等角の扇形に分割するものと解釈して、下記をワークシートｓｈｅｅｔ１上で実行してください。
Sub test02()
Worksheets("sheet1").DrawingObjects.Delete
'中心は１００＋１６０／２，３０＋１６０／２
'半径は１６０／２
ActiveSheet.Shapes.AddShape(msoShapeOval, _
100, 30, 160, 160).Select
For i = 0 To 360 Step 30
s = 3.14159 * i / 180
' ActiveSheet.Shapes.AddLine(100 + 160 / 2, 30, 100 + 160 / 2, 30 + 80).Select
ActiveSheet.Shapes.AddLine(100 + 80, 30 + 80 - 80 * Cos(s), 100 + 80 + 80 * Sin(s), 30 + 80).Select
Selection.ShapeRange.Flip msoFlipVertical
Range("E3").Select
Next i
End Sub
For i = 0 To 360 Step 30の３０（度）を色々変えて実行してください。

この回答へのお礼

ありがとうございました。
できました。
大変助かりました。
もし線の太さの指定の仕方を教えて頂けたらさらに助かるのですが。

お礼日時：2003/03/03 01:23

No.1 回答者： acacia7 回答日時： 2003/03/01 01:56

エクセルで円グラフをつかってはいかがですか？

偶数個の１という数字列を円グラフにすれば、良いのでは？

この回答へのお礼

ありがとうございました。

お礼日時：2003/03/01 09:44