- ベストアンサー
らせん スパイラル を書きたい。
ワードで，らせん 螺旋 スパイラルを書きたいのです。 どうやったら，いいでしょうか。
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (2)
- imogasi
- ベストアンサー率27% (4737/17070)
通常の操作では回答が出てきませんね。多分方法がないのだと思います。２日考えてやっとなんとか下記が出来て 締めきりに間に合いました。 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)
お礼
ありがとうございます。 やってみました。しっかりとできました。 楽しく作ることができました。