テキストボックスをコピーするＶＢＡ

質問

エクセルでもワードでもいいのですが。
テキストボックスで"あ"と一文字表示させます。
この"あ"を90個使って円の形になるようにしたいのですが。
ようするに、テキストボックスで何か１文字表示させた状態で実行すると、
その文字をぐるりと90個並べて円周を描かせるＶＢＡスクリプトを知りたいのですが。
宜しくお願いします。

回答No.1

imogasi · ベストアンサー

エクセルで（ＶＢＡ）「あ」がみんな、上を向いて居て良いのなら下記をやって見てください。「あ」が円形に並びます。半径ｒやＳｔｅｐ値（下記では１５度）Ｌｅｆｔ値（下記では１５０），Ｔｏｐ値（下記では１００）は適当に変えてください。
Sub test1()
pai = 3.14159
r = 100
Worksheets("sheet1").Activate
Worksheets("sheet1").DrawingObjects.Delete
For s = 0 To 360 Step 15
rd = s / 180 * pai
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, 150 + r * Sin(rd), 100 + r - r * Cos(rd), _
20, 20).Select
Selection.Characters.Text = "あ"
Selection.ShapeRange.Fill.Visible = msoFalse
Selection.ShapeRange.Line.Visible = msoFalse
Next s
End Sub
上記でActivesheetから・・20).Selectまでは１行です。

お礼

ありがとうございました。
できました！
大変助かりました。

ただ、もし、A1に入力された任意の文字に対して上記のことができるようになるケースも教えて頂ければ、さらに助かるのですが。

回答No.2

pureh

＞もし、A1に入力された任意の文字に対して上記のことができるようになる
＞ケースも教えて頂ければ、さらに助かるのですが。

＃１の方のプログラムの
　Selection.Characters.Text = "あ"
を
　Selection.Characters.Text = Range("A1").Value
としてみてらどうでしょうか。

お礼

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