>>249
Sub test1()
　　With ActiveSheet.Rectangles.Add(10, 10, 50, 50)
　　　　.Text = "あ"
　　　　.HorizontalAlignment = xlHAlignCenter
　　　　.VerticalAlignment = xlVAlignCenter
　　End With
End Sub

Excel任せだと少しずれてしまうのは仕様。
ぴったり中央に文字を出したいときは、背景が透明のテキストボックスを
図形の上に重ねて、座標を自分で計算するしかない。

Sub test2()
　　MsgBox ActiveSheet.Shapes(1).TextFrame.Characters.Text
End Sub

あと、質問するときはもうちょっと文章を丁寧に書け。
「やりたい」「できない」だけじゃ質問になってない。
テンプレも使うこと。