- ベストアンサー
らせん スパイラル を書きたい。
ワードで，らせん 螺旋 スパイラルを書きたいのです。 どうやったら，いいでしょうか。
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
あまりいい方法ではありませんが．．．。 等幅フォントでご覧ください。 （1）”曲線”で楕円の４分の１のような曲線を描きます。端点が横軸、縦軸に接するようにしてください。 ━━┓←曲線だと思ってください。 ┃ （２）（１）を複製して上下反転させ、（１）にくっつけてグループ化をします。 ━━┓ ┃ ┃ ━━┛ （３）（２）を複製して左右反転させます。 ┏━━ ━━┓ ┃ ┃ ┃ ┃ ┗━━ ━━┛ （４） 上図の左側を縦方向に縮めます。 ┏━━ ━━┓ ┃ ┃ ┗━━ ┃ ━━┛ （５） くっつけ、グループ化します。 ┏━━━━┓ ┃ ┃ ┗━━ ┃ ━━┛ （６） （５）を複製し、くっつけます。 ┏━━━━┓ ┣━━ ┃ ┗━━━━┫ ━━┛ （７） （６）を繰り返します。 ┏━━━━┓ ┣━━━━┫ ┣━━━━┫ ┣━━━━┫ ┣━━━━┫ ┗━━━━┫ ━━┛ （８）上の方はグループ解除などをして、不必要な部分を削除します。 ━━┓ ┏━━━━┫ ┣━━━━┫ ┣━━━━┫ ┣━━━━┫ ┗━━━━┫ ━━┛ 手がこんでます（笑）。頑張ってください。
その他の回答 (2)
- imogasi
- ベストアンサー率27% (4737/17069)
通常の操作では回答が出てきませんね。多分方法がないのだと思います。２日考えてやっとなんとか下記が出来て 締めきりに間に合いました。 VBAというプログラムになりますが、やって見てください。 平面螺旋も色々のものがあるようですが、下記は「アルキメデスの螺旋」というものです。 ワードの文書の画面で （１）ＡＬＴキー＋Ｆ１１キー（＋は,「押しながら」を意味する。ＶＢＥ画面になる。 （２）ＡＬＴ＋Ｉ（挿入）その後ＡＬＴ＋Ｍ（標準モジュール）。標準モジュール画面になる。 （３）下記をコピーし上記画面に貼り付ける。 Sub test01() ' Documents(1).DrawingObjects.Delete Application.ScreenUpdating = False Pi = 3.141592 mx = 150 my = 150 For t = 0 To 5 * Pi Step 0.01 x = 10 * t * Cos(t) + 150 y = 10 * t * Sin(t) + 150 Documents(1).Shapes.AddLine mx, my, x, y mx = x my = y Next t Application.ScreenUpdating = True End Sub （４）メニューの実行－ＳＵＢ／ユーザーフォームの実行 をクリックしてください。プログラムが走ります。 （５）相当大きい図形になりますが 上記１５０（４箇所）がウズの中心の座標です。色々変えてやって見て、適当なところ（数）にしてください。 もう一つ10 * t * Cos(t) ,10 * t * Sin(t) の１０が ウズの大きさを決めますので色々変えてやって見て、適当な数にしてください。 （７）直前に描かれた図形を消すためには２回目からは ' Documents(1).DrawingObjects.Deleteの先頭の「'」 １文字だけ消してください。’があるとこの行は無効、 なくすと有効になります。
お礼
ありがとうございます。 なるほど，しっかりと螺旋になりました。 私の手にはおえませんが，こんな方法もあるのですね。 大変参考になりました。
- tak2006
- ベストアンサー率23% (17/71)
＃１の者です。（６）の図に訂正があります。次が正しいです。 ┏━━━━┓ ┣━━━━┫ ┣━━ ┃ ┗━━━━┫ ━━┛
お礼
ありがとうございます。 やってみました。しっかりとできました。 楽しく作ることができました。