以下のVBAを実行するとテキストボックスの"あ"という文字で円を描くことができます。
Sub test1()
pai = 3.14159
r = 100
Worksheets("sheet1").Activate
For s = 0 To 360 Step 15
rd = s / 180 * pai
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
200 + r * Sin(rd), 50 + r - r * Cos(rd), 20, 20).Select
Selection.Characters.Text = "あ"
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Line.Visible = msoFalse
Next s
End Sub
この円の半分の半径の円を元の円とドーナツ型(◎)になるように描くにはどのようなスクリプトにすればいいのでしょうか?
No.2ベストアンサー
- 回答日時:
> 試してみましたが、ドーナツ型にはなりませんでした。
> 円周の一部がくっ付いてしまいました。
中途半端な解答をつけて申し訳ない。ちょっとだけ真剣に考えました。
#1> ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
#1> 200 + r2 * Sin(rd), 50 + r2 - r2 * Cos(rd), 20, 20).Select
200 + r2 * Sin(rd), 50 + r - r2 * Cos(rd), 20, 20).Select
二つ目の r2 が r ね。
# でも、試してません
No.1
- 回答日時:
こんな感じ?
> Sub test1()
> pai = 3.14159
> r = 100
> Worksheets("sheet1").Activate
> For s = 0 To 360 Step 15
> rd = s / 180 * pai
> ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
> 200 + r * Sin(rd), 50 + r - r * Cos(rd), 20, 20).Select
> Selection.Characters.Text = "あ"
> Selection.ShapeRange.Fill.Visible = msoFalse
> Selection.ShapeRange.Line.Visible = msoFalse
r2 = r / 2
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, _
200 + r2 * Sin(rd), 50 + r2 - r2 * Cos(rd), 20, 20).Select
Selection.Characters.Text = "あ"
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Line.Visible = msoFalse
> Next s
> End Sub
# 試してません
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 複数セルに〇印をつけるマクロ 4 2022/09/07 05:33
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) VBAプログラミング 2 2022/11/27 12:13
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2023/02/02 09:25
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- その他(Microsoft Office) エクセル VBAについて 2 2022/09/21 22:21
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 6 2022/06/08 12:55
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 1 2022/04/01 12:11
- Visual Basic(VBA) VBAで質問ですが、皆さんはどの様に導き出しているのでしょうか? 6 2022/05/03 21:53
- Visual Basic(VBA) excel vbaでvlooupの変数がわかりません。 7 2022/05/30 09:35
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
EXCEL VBA 行の値を累計したい...
-
トラックへの荷物の積みかたを...
-
剛体の力学の問題 正三角形
-
抵抗値計算
-
抵抗を使用したインピーダンス...
-
VBAでグループごとソートす...
-
電気回路の閉路方程式の問題
-
エクセルで集計
-
ブタジエン(M1)/アクリロニトリ...
-
黄色マーカVbと書いてあるので...
-
外力のある相対運動
-
μって?
-
材料力学について質問です。 問...
-
作った表から一覧表を作成をしたい
-
iPadAir2か、iPad mini3か、PS4
-
エクセル 指定した複数の文字の...
-
並列の合成抵抗での計算
-
材料力学の問題ですが
-
対称・反対称な波動関数
-
エクセルのVBAのことで
おすすめ情報