エクセルの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

a-kuma · ベストアンサー

> 試してみましたが、ドーナツ型にはなりませんでした。
> 円周の一部がくっ付いてしまいました。

中途半端な解答をつけて申し訳ない。ちょっとだけ真剣に考えました。

#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

a-kuma

こんな感じ？

> 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

＃ 試してません

お礼

ありがとうございました。
試してみましたが、ドーナツ型にはなりませんでした。
円周の一部がくっ付いてしまいました。