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ランキング
-
pdfの表をexcelにはりつけて計...
-
Excelのデーターを消して保存し...
-
exselの質問です
-
Excelの数式について教えてくだ...
-
エクセルの「赤」の印刷がうま...
-
エクセルで特定のセルに入力が...
-
関数の説明
-
[オプション]の[アクセスビリテ...
-
Excelについて
-
エクセル おすすめフォント
-
CSVファイルについて質問です。
-
エクセルの「入力規則」のプル...
-
Excelにいついて質問です。
-
Excelの関数について教えてくだ...
-
一つのセルに(例えばA1)入力...
-
VBAについての質問です
-
エクセルファイルがファイルの...
-
エクセルであるセルに数字を入...
-
Excelでセルの値が同じか...
-
UNIQUE関数が使えないバージョ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA 作業後に選択範囲...
-
別のフォームで記述している関...
-
Sub Auto_Open() 実行されない
-
VBAでのユーザフォームの表示有...
-
ACCESSで別DBにあるクエリを...
-
GetAsyncKeyState() を利用する...
-
ascW関数の結果がおかしい
-
エクセル マクロ 別シートから...
-
Excel vba 条件分岐 空白セルが...
-
Excel VBAのステップイン
-
ステップモードの動作確認方法
-
Excelで、チェックボックスにチ...
-
ExcelVBAで毎月月初の最初にBoo...
-
ExcelVBA ドロップボックスで月...
-
Excelのマクロ実行後に動作が重...
-
円の中に等間隔に線を引くには
-
メニューバーのイベントが2回...
-
最小化ボタンで最小化したフォ...
-
MATLABの乱数生成関数 rand( ) ...
-
続き…エクセルvba ①SUBメニ...
おすすめ情報