エクセルの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 回答日時： 2003/03/06 16:39

> 試してみましたが、ドーナツ型にはなりませんでした。

> 円周の一部がくっ付いてしまいました。

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

#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 ね。

＃ でも、試してません

この回答へのお礼

ありがとうございました。
できました！！

お礼日時：2003/03/06 16:53

No.1 回答者： a-kuma 回答日時： 2003/03/06 16:16

こんな感じ？

> 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

＃ 試してません

この回答へのお礼

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

お礼日時：2003/03/06 16:27