Sub MakeExcelChart()
Dim XLSheet As Object
Documents.Add
Wbook = "\projections.xls"
Set XLSheet = GetObject(Wbook, "Excel.Sheet").ActiveSheet
XLSheet.range("Value") = 1
XLSheet.range("Change") = 2
XLSheet.Calculate
Selection.Font.Size = 14
Selection.Font.Bold = True
Selection.TypeText "Monthly Increment: " & Format(2, "0.0%")
Selection.TypeParagraph
Selection.TypeParagraph
XLSheet.range("data").Copy
Selection.Paste
XLSheet.ChartObjects(1).Copy
Selection.PasteSpecial _
Link:=False, _
DataType:=wdPasteMetafilePicture, _
Placement:=wdInLine, DisplayAsIcon:=False
Set XLSheet = Nothing
End Sub