- 250 名前：デフォルトの名無しさん mailto:sage [2010/02/09(火) 03:10:36 ]
- >>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
あと、質問するときはもうちょっと文章を丁寧に書け。
「やりたい」「できない」だけじゃ質問になってない。
テンプレも使うこと。
