Excel 2007 Shape Text
Sub Textbox()
Dim d As Date
With Sheets("Summary")
d = .Range("DDate")
With .ChartObjects(1).Chart.Shapes(1).TextEffect
.FontSize = 12
.FontBold = True
.Text = d
End With
End With
End Sub