Excel VBA 質問スレ Part14

Excel VBA 質問スレ P ..

249:デフォルトの名無さん
10/02/09 00:19:12
下記test1で「あ」を図の真ん中に表示したい。
test2では文字をとりだせない。

Sub test1()
ActiveSheet.Shapes.AddShape(msoShapeRectangle, 10, 10, 50, 50).Select
With Selection
.Characters.Text = "あ"
End With
Range("a1").Select
End Sub

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

次ページ

続きを表示

1を表示