
No.4ベストアンサー
- 回答日時:
#1さんの「アルキメデスの螺旋」では、思ったものは見つかりませんでしたね。
「螺旋 VBA」と、インターネット検索してみて、ヒットした以下にあったものを、加工してみました。http://backno.mag2.com/reader/BackBody?id=200311 …
なお、細かな設定については割愛しますが、<標準モジュール>に設定しておけば間違いないはずです。
Sub Archimedean_Spiral()
Const Pi = 3.1415
Const X = 200 '螺旋の位置 X
Const Y = 200 '螺旋の位置 Y
Const R = 15 '15が最低値 巻きの大きさに関係
Const IncNum = 0.1 '巻きの大きさに関係
Dim Spiral As Shape
Dim Ratio As Single
Dim i As Long
With ActiveSheet.Shapes
With .BuildFreeform(msoEditingAuto, X, Y + R)
Ratio = 1
For i = 30 To 360 * 5 Step 30
.AddNodes msoSegmentCurve, msoEditingAuto, _
X + Sin(i * Pi / 180) * R * Ratio, _
Y + Cos(i * Pi / 180) * R * Ratio
Ratio = Ratio + IncNum
Next
Set Spiral = .ConvertToShape
With Spiral
.Line.Weight = 2# '2以下にすると消えることがある。
.Line.ForeColor.RGB = RGB(255, 0, 0) '色は赤
End With
End With
End With
End Sub
No.3
- 回答日時:
ちょっと面倒な方法ですが・・・
まず下準備として、セルの幅・高さを全て20ピクセルくらいに揃えます。(グラフ用紙みたいに)
(以後、この1マス(1目盛り)を1として説明します)
[図形の調整]-[位置合わせ]を「グリッド」にします。
[オートシェイプ]の[基本図形]の左下のほうにある「円弧」で
半径1の四分の一円弧を描き、黄色のハンドルを伸ばして半円弧にします。
その半円弧をコピー&ペースト([Ctrl]を押しながらドラッグ)して
同じものを作り[図形の調整]-[回転/反転]の「上下反転」してから、
半径2になるように拡大します。
上記を繰り返せば、渦巻きができますので、最後にグループ化して、
([位置合わせ]の「グリッド」を外し)お好みの大きさにしてください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
新生活!引っ越してから困らないように注意すべきことは?
新しい職場や学校で元気いっぱいのスタートを切るためにも快適な生活環境を整えておきたい! >>
-
オートシェイプでうずまきを描くには?
PowerPoint(パワーポイント)
-
エクセルで渦巻きが描きたい
Excel(エクセル)
-
ばねの図を描きたい。
その他(Microsoft Office)
-
4
ワード文書を書いています。渦巻きの矢印を。
Word(ワード)
-
5
対数螺旋の方程式と書き方について
数学
-
6
パワーポイントで渦巻き書きたいんですけど。。。
PowerPoint(パワーポイント)
-
7
らせん スパイラル を書きたい。
Word(ワード)
-
8
渦巻きの数式を教えてください。basicで描画命令psetで描きたいの
数学
-
9
AutoCADで渦巻きを描く方法
画像編集・動画編集・音楽編集
-
10
渦巻き関数
数学
-
11
等角螺旋(らせん)の3次元的な数式表現
数学
-
12
エクセルの図形で弧を書く方法
Excel(エクセル)
-
13
アルキメデス螺旋に等間隔点列を描画したい
数学
-
14
螺線(らせん)の長さ(ピッチ)と半径の関係式について
数学
-
15
螺旋の周長の求め方
数学
-
16
Excel 書式を関数で判断。
Excel(エクセル)
-
17
インボリュート曲線の式
数学
-
18
VA提案とVE提案の違いは ?
経営情報システム
-
19
うずまきの描き方
画像編集・動画編集・音楽編集
-
20
半径rから始まるアルキメデスの螺旋の長さを求める一般式を教えてください
数学
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
SHADEで質問です。
-
5
officeのvisioで線を交差させる
-
6
autoCADで三辺を指定して三角形...
-
7
JW CAD 円に放射状の線を等間隔...
-
8
エクセルの角丸四角形の角の大...
-
9
円弧の線上にスナップしたい
-
10
ワードのテキストボックス内に...
-
11
曲線の横断方向
-
12
auto-Cad の使い方 内接する円...
-
13
半円の描き方
-
14
AUTOCADで懸垂曲線(カテナリー...
-
15
ハートを書きたい!
-
16
MAYAで2個の円をスムーズにつな...
-
17
JWCADの寸法表示を大きくしたい
-
18
Yahooの 画面サイズの変更
-
19
突然カーソルが手の形に…
-
20
バツ印をつけるには??(ワード)
おすすめ情報