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

質問

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

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

回答No.2

imogasi · ベストアンサー

＞「等間隔で」の意味が良く判らないのですが下記でいかがですか。
円を等角の扇形に分割するものと解釈して、下記をワークシートｓｈｅｅｔ１上で実行してください。
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の３０（度）を色々変えて実行してください。

お礼

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

回答No.1

acacia7

エクセルで円グラフをつかってはいかがですか？
偶数個の１という数字列を円グラフにすれば、良いのでは？

お礼

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