図形に文字入力

Sub 図形に文字入力()

Dim iShapeCd As Integer
Dim rRange As Range

iShapeCd = msoShapeRectangle
Set rRange = Range("C10:E12")

With ActiveSheet.Shapes.AddShape(iShapeCd, rRange.Left, rRange.Top, rRange.Width, rRange.Height)
.TextFrame.Characters.Text = "Hello world"
End With

Set rRange = Nothing

End Sub