No.2ベストアンサー
- 回答日時:
>「等間隔で」の意味が良く判らないのですが下記でいかがですか。
円を等角の扇形に分割するものと解釈して、下記をワークシートsheet1上で実行してください。
Sub test02()
Worksheets("sheet1").DrawingObjects.Delete
'中心は100+160/2,30+160/2
'半径は160/2
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の30(度)を色々変えて実行してください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- 電気工事士 電線に沢山鳥が止まっているのかと思いきや、よく見ると何かが取り付けてある。 これは何ですか?名前はあ 2 2023/01/08 10:38
- Excel(エクセル) エクセルの数式を等間隔にオートフィルできるやり方を教えていただきたいです。 実際の作業↓ A3セルに 7 2023/06/05 19:04
- クラフト・工作 元のシルエットを維持したまま詰める 2 2023/07/02 20:23
- 数学 円の直径330mmで円の中に正三角形を作りたいのですが、どういう計算で算出できますか? 正三角形の大 6 2022/08/05 19:07
- その他(恋愛相談) LINEの返信間隔を完璧に相手と合わせる男性。 例えば私が3分後に既読をつけて返信→同じように3分後 6 2022/12/07 18:14
- タブレット 子供のタブレットのペアレンタルコントロール 1 2023/04/14 14:34
- 電車・路線・地下鉄 次の私鉄はなぜローカル線とは呼べないのでしょうか。 2 2023/08/07 21:41
- Word(ワード) 表の縦罫線を移動するピッチ 1 2022/10/12 12:24
- パチンコ・スロット 昨日初めて行った店でパチンコを打っていて、3千円入れたところで初当り、確変に入り数ラウンド消化したと 4 2023/03/05 14:39
- 電車・路線・地下鉄 高崎線の特別快速は何のために存在しているのですか? 4 2023/08/08 00:46
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA 作業後に選択範囲...
-
別のフォームで記述している関...
-
最小化ボタンで最小化したフォ...
-
ACCESSで別DBにあるクエリを...
-
円の中に等間隔に線を引くには
-
GetAsyncKeyState() を利用する...
-
excelのvbaを使って日付を置換...
-
エクセル マクロ 別シートから...
-
MATLABの乱数生成関数 rand( ) ...
-
メニューバーのイベントが2回...
-
excel2010でボタンが反応しなく...
-
Sub Auto_Open() 実行されない
-
エクセルで条件をつけて図形を...
-
Switchのわんことあそぼ、めざ...
-
エクセルでの6ヶ月平均の出し方
-
ワードで、グレーの部分しか入...
-
認証コードの入力の仕方教えて...
-
フルスクリーンモードで開いたP...
-
家電量販店で購入した新品ゲー...
-
メフィスト賞の応募歴は無しだ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA 作業後に選択範囲...
-
別のフォームで記述している関...
-
Sub Auto_Open() 実行されない
-
最小化ボタンで最小化したフォ...
-
ACCESSで別DBにあるクエリを...
-
Excelで、チェックボックスにチ...
-
円の中に等間隔に線を引くには
-
VBAでのユーザフォームの表示有...
-
エクセル マクロ 別シートから...
-
Excel vba 条件分岐 空白セルが...
-
ascW関数の結果がおかしい
-
Excelのマクロ実行後に動作が重...
-
メニューバーのイベントが2回...
-
ExcelVBAで毎月月初の最初にBoo...
-
Excel VBAのステップイン
-
ExcelVBA 日付変更
-
excel2010でボタンが反応しなく...
-
エクセルVBAのコードで質問です...
-
ExcelVBA ドロップボックスで月...
-
excelのvbaを使って日付を置換...
おすすめ情報